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LIMITS OF LIABILITY AND 
DISCLAIMER OF WARRANTY 


The author and publisher of this book have used their best efforts in 
preparing this book and the programs contained in it. These efforts in- 
clude the development, research, and testing of the programs to deter- 
mine their effectiveness. The author and the publisher make no warranty 
of any kind, expressed or implied, with regard to these programs, the text, 
or the documentation contained in this book. The author and the pub- 
lisher shall not be liable in any event for claims of incidental or conse- 
quential damages in connection with, or arising out of, the furnishing, 
performance, or use of the text or the programs. The programs contained 
in this book and on any diskettes are intended for use of the original 
purchaser-user. The diskettes may be copied by the original purchaser- 
user for backup purposes without requiring express permission of the 
copyright holder. 


Throughout this book, the term “T/S 2000” is used to 
refer to any of the models in the Timex/Sinclair 2000 
series of computers. 


PREFACE 


WARNING! These games may be hazardous to your peace of 
mind! You will not find the usual ZAP, ZING, BOOM of the arcade 
games here. These are quiet, peaceful, challenging games of 
concentration and mental skill. They can be a lot of fun, but are 
you up to the challenge? 

Will you be able to locate the pirates’ treasure before the 
pirates find it and use you to scrub the barnacles off their boat? 

Can you keep your cool when lost in a four-dimensional time 
warp with your fuel supply running low? 

Will your powers of deduction waiver as you desperately try to 
locate a bomb before it detonates? 

These games are meant to entertain you. While you are hav- 
ing fun, you will learn about programming and mathematics. First 
of all, a lot of good stuff is crammed into very few lines of code. 
There are useful programming tips that illustrate short cuts in pro- 
grams. Also, the solutions to the games demonstrate some every- 
day, practical mathematics. If you are not familiar with program- 
ming, these short programs will serve as an introduction to 
programming techniques. 

You don’t have to use mathematics to solve the games. My 
children, aged 9, 13 and 16, have tested and enjoyed playing the 
games for hours. They use the technique: “by guess or by golly.” 
However, if you are studying mathematics at the high school or 
university level, you will enjoy the challenge of trying to solve the 
games in the quickest, most elegant fashion. In many cases, you 
are encouraged to answer questions or problems that are pointed 
out in the description of a program. 


John Stephenson 
Department of Mathematics 
University of Saskatchewan 
Saskatoon, Saskatchewan 


INTRODUCTION 


This collection of short programs has been written in a version of 
BASIC, which was developed specifically for the ZX81 and the 
TIMEX/SINCLAIR T/S 1000. The programs will also run on the 
more powerful T/S 1500 and T/S 2000. If you have a T/S 1500 or 
T/S 2000, however, there are a few minor alterations you should 
make in the listings. For example, in place of the operation ** for 
raising a number to an exponent as in 4**2 = 4 = 4*4 = 16, the 
T/S 1500 and T/S 2000 use fT asin 4t 2. Also, the key word 
instructions GOTO and GOSUB have a space inserted so that 
they become GO TO and GO SUB. There is no SLOW or FAST 
option so the use of these can be omitted. Finally, the key words 
RAND and CONT appear in a T/S 1500 and T/S 2000 listing as 
RANDOMIZE and CONTINUE. 

In every case, a 1K version of the game is given. Sometimes 
an additional listing of a 2K version is included when something 
would be gained through using the larger program. Occasionally, 
an additional small change for the T/S 1500 and T/S 2000 is given 
because the character codes are different from that of the ZX81 
and T/S 1000. 

The object was to keep the programs short and snappy. This 
meant that the use of prompts and screen displays had to be kept 
to the bare essentials. The point is, you will be able to enter a 30- 
line program in less than 10 minutes. There is less chance of 
making typographical errors with short programs. If you do make 
an error, it should not be difficult to find the error and debug your 
code. The listings given are identical to the screen display of your 
entered program. If the spaces do not match, there is something 
wrong in your entry of the code (with the exceptions pointed out 
above for the T/S 1500 and T/S 2000). 

These programs will be quite useful to beginners in program- 
ming. They will also give you a chance to become acquainted with 
-analytic geometry, linear equations, quadratic equations, systems 
of linear and non-linear equations, conics, Lagrange Interpolation, 
probability and statistics, binomial probability, binomial expansion, 
Pascal’s triangle, the arithmetic of complex numbers, representa- 
tion of numbers in different bases, Cartesean and polar coordi- 
nates, distances measured by different norms, the |-norm and the 


ix 


Euclidean norm. There are also games of logic, concentration, and 
of course, arithmetic. If you are unfamiliar with the standard math- 
ematical functions, there is a program which draws the functions 
for you, illustrating their special features. 

Unlike arcade games, these games rarely use graphics. For 
the most part, the display is used only for prompts, answers, and 
messages of praise or doom! The essential features of the games 
are that they develop concentration, imagination, logic and the 
ability to do mental arithmetic. 

The games are listed alphabetically, but they are not catego- 
rized as to mathematical content or difficulty. Accordingly, the book 
is like a potpourri and you are cordially invited to dip into it in any 
order that takes your fancy. You might find it helpful to refer to the 
following where the games are categorized as to their mathemati- 
cal content. 


Content Game 

Word games: Anagrams, Enigma 

Memory and concentration: Flash, Knight, Loose Change, Simon, 
Verify 

Mental arithmetic: Cryptic, Human Arithmetic, Jugs, Rally, 
Xchange 

Number bases: Base, Nim, Your Number Is Up, Zen 
Stacks 

Lagrange interpolation: Anagrams 

Analytic geometry: Detonation, Quest, Trek, U-Boat, Warp 

Logical thinking: Monkey Puzzle, Nim, Zen Stacks 


Linear equation and 
system of linear equations: Detonation, Obscure Ages, Rally, Trek 


Gauss elimination: Obscure Ages, Rally, Trek 
Cartesian coordinates: Detonation, Quest, Trek, U-Boat, Warp 
Cylindrical coordinates and 

polar coordinates: U-Boat 
Probability and statistics: Invader 
Euclidean distance: Detonation, U-Boat 
Distance measured by |-norm: Quest, Trek, Warp 
Complex arithmetic: Human Arithmetic 
Quadratic equations and 

nonlinear equations: Product and Sums 
Mathematical functions: Graphs 


The experience gained from teaching mathematics for 20 
years has gone into these games. It is my belief that it is possible 
to learn mathematics and the ability to think clearly and logically 


x 


through the use of games. This can be a lot of fun for children of 
all ages, including those of us who are merely young in heart! The 
presentations and explanations of the games are given in a tutorial 
fashion, as if | were by your side explaining things to you as you 
go along. You should find this approach less formal and stuffy than 
your usual mathematics textbook. My children and their friends 
have enjoyed playing these games. It is my hope that you will 
enjoy playing them as much as we did. 


This little book of fun and games is dedicated to 
my children, Margot, Blake, and James 
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“Anagrams” (1K) 


19 RAND 

29 LET A$="RILETORNCLIPPOURFOR 
THSURLYSLOTSARGUESLOWLYFIRMLYGRO 
WTHMENACEFIGURESTRUMPETSMARTENBA 
STION" 

30 LET W=INT (4*RND) 

49 LET X=INT (4*RND) 

5Q LET L=X+4 

69 LET P=X*(2*X+14) +WXL4+1 

70 LET BS=A$(P TO P+L—1) 

89 LET E$=BS 

99 LET F$=B$ 

199 FOR IT=1 TOL 

119 LET J=INT (L*RND) +1 

129 LET C$=F$(J) 

139 IF C$=" " THEN GOTO 119 
149 LET B$(I) =C$ 

159 LET F$(J) =" " 

169 NEXT I 

165 PAUSE 199 

179 CLS 

175 PRINT B$;" THE WORD IS ?" 
189 INPUT D$ 

199 IF D$="." THEN PRINT E$;Q 
299 IF D$<_>E$ THEN GOTO 239 
219 PRINT "RIGHT" 

22% GOTO 39 

239 PRINT "WRONG" 

249 GOTO 165 


NOTE: Use capital letter mode on the T/S 1500 and T/S 2000 
when you run the program. 


Anagrams 3 


“Anagrams” 


Some people are good at anagrams, making words out of a jum- 
ble of letters. This program is designed to improve your skill with 
anagrams. 

Mathematics can sometimes be like sorting out an anagram. 
You have all the facts, all the data, but they are jumbled up. With 
training, you learn how to make sense out of the chaos. By trial 
and error you patiently work through the different possibilities, until 
a flash of inspiration or insight guides you to the correct solution. 

Of course, the list of words is short and fixed, so to make the 
game more interesting, you should have the word list altered by a 
friend, and then test your skill. To save memory space and to 
disguise the words, | have placed the “dictionary” of words in A$ 
at line 20. There are 4 words of 4 letters followed by 4 of 5 letters, 
then 4 of 6 letters and finally 4 of 7 letters. You must replace words 
in precisely this fashion because the program is designed to pick 
out a sequence of letters from A$ that forms a word. | used a 
mathematical technique call interpolation to do this. 

The start of the four-letter words is at the first letter of A$. The 
start of the five-letter words is at letter 17 of A$. Six-letter words 
start at the 37th letter of A$ and seven-letter words at the 61st 
letter of A$. The formula 


P = X* (2X+14) + 1 


is used in line 60 to find the starting point of the words, where the 
length of the words is X+ 4. 

Let us try out the formula. For X = @ (words of length 4), P= 1. 
For X=1 (words of length 5), P=17, and so on. A method of 
finding this formula is called Lagrange Interpolation. What | needed 
was P=1 for X=@, P=17 for X=1, P=37 for X=2, P=61 for 
X=3. | decided to subtract 1 from all the values of P to have 
easier numbers. So now | wanted P=@ for X=0, P=16 for X=1, 
P=36 for X=2 and P=60 for X=3. 

We construct the required function P of X by using polynomi- 
als. A polynomial P, for example, is a function like P = 2x? — 3x 
+ 4, We build the polynomial P from basic polynomials that have 
the value 1 at only one point and are zero for all of the other 
points. In this case, we want a polynomial that is zero at X = 0, 2 
and 3. We start with R = X(X-2) (X-—3), which has the required 
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values of zero. We want R = 1 at X = 1. In this case, R = 2, so 
we divide by 2 to get 


R = X(X-2\X-3)/2 


In a similar fashion, we define 


S = -—X(X-1)(X-3)/2 
which has the value 1 at X = 2 and is zero at X = 0, 1 and 3. 
Finally, we define 


T = X(K-1)(X-2)y6 
which has the value 1 at X = 3 and is zero at X = @, 1 and 2. 
The interpolating polynomial P that we require is a combina- 
tion of these basic polynomials. 


P = R*16 + S*36 + Tx60 
= X*(2*X + 14) 

The program will continue automatically when you correctly 
identify a word. There is no limit to the number of guesses you 
make for each word. If you wish to quit at any time, just enter a 
period. The program will print the word and then stop because Q 
is an undefined variable in line 190. If you get stuck on a word, this 
is the way to stop the program and to find out what the word is. 
You can then run the program again in order to continue the 
game. 

When you run the program, the jumbled up word is displayed 
on the screen, followed by the prompt 

THE WORD IS? 

After you enter your answer, a response 

RIGHT or WRONG 


will be displayed. If you are right, a new anagram will be given. If 
you are wrong, the screen clears and you are prompted to solve 
the same anagram again. There is a remote possibility that the 
anagram will be presented in its correct form. This can be avoided 
by typing in one additional line, if you have more than 1K of 
memory: 

162 IF B$=E$ THEN GOTO 99 

If you have 2K or more memory, the word list can be ex- 
tended. In the following example, | give the additional lines that 
you would add to increase the word list to 96 words. You should 
find the 2K program most challenging. 


Anagrams 


“Anagrams” (2K) 


19 RAND 

15 GOTO 18+2*INT (6*RND) 

18 LET A$="ALLYBAILCHITDIMEDIG 
ITFLIRTGRAINHOUSEF IDGETHOURLYLIN 
INGNOZZLEMOVABLEOP INIONPARTNERRE 
COVER" 

19 GOTO 39 

29 LET A$="RILETORNCLIPPOURFOR 
THSURLYSLOTSARGUESLOWLYFIRMLYGRO 
WTHMENACEF IGURESTRUMPETSMARTENBA 
STION" 

21 GOTO 39 

22 LET A$="'FROGHALFMASTRENTWHE 
ELTRUSTSTUFFSCRUBSCRIPTREBORNPUB 
LICMUTTERINTRUDEHAUGHTYGIRAFFEEN 
CHANT" 

23 GOTO 39 

24 LET A$="GUSHHAILOVERRENDWHA 
RFTRULYSTUDYSCREWSCREENREALTYPUC 
KERMUTINY INSTANTHATRACKGHOSTLYDE 
VELOP" 

25 GOTO 39 

26 LET A$="AGOGBACKCHATDIALCHA 
SMFLIRTGENUSTHIGHHECTICJIGGERLIG 
ATEMOTHERLIGHTENNOXIOUSPAPRIKARE 
BOUND" 

27 GOTO 39 

28 LET A$="AIRYBABECHEFDIETCHE 
STFIGHTGERMSHEDGEHEIGHTJESTERLIM 
PETNOTICEMOUTHEDOILSKINPARABLERE 
ALIZE" 

39 LET W=INT (4*RND) 

49 LET X=INT (4*RND) 

59 LET L=X+4 

69 LET P=X*(2*X+14) +WHL41 

79 LET BE=A$(P TO P+L—1) 

89 LET E$=B$ 

99 LET F$=B$ 

199 FOR I=1 TOL 
119 LET J=INT (L*RND) +1 
129 LET C$=F$(J) 
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130 IF C=" " THEN GOTO 119 
149 LET B$(I) =C$ 

159 LET F$(J) =" " 

169 NEXT I 

162 IF B$}=E$ THEN GOTO 99 
165 PAUSE 199 


179 CLS 

175 PRINT B$;" THE WORD IS ?" 
189 INPUT D$ 

199 IF D$="." THEN PRINT E$;Q 


299 IF D$<>E$ THEN GOTO 239 
219 PRINT "RIGHT" 

22% GOTO 15 

23 PRINT "WRONG" 

249 GOTO 165 
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“Base” (1K) 


5 LET Z=CODE "A" —19 

19 DIM S$(32) 

15 CLS 

29 PRINT "ENTER BASE FROM 2 TO 
16" 

3@ INPUT D 

35 CLS 

49 PRINT "BASE IS ";D 

69 PRINT "ENTER NUMBER 1 TO 42 
94967295" 

70 INPUT A$ 

89 PRINT A$;" IN BASE ";D;" IS 
wu 

85 LET A=VAL A$ 

9@ GOSUB 209 

119 PRINT "ENTER 9% NEW BASE 1 N 
EW NUMBER" 

129 INPUT G 

139 IF NOT G THEN GOTO 15 

149 IF G=1 THEN GOTO 35 

159 STOP 

299 LET I=1 

229 LET B=A—D*INT (A/D) 

239 LET A=INT (A/D) 

235 IF B>9 THEN LET S$(33—I1) =CH 
R$ (Z+B) 

236 IF B>9 THEN GOTO 259 

249 LET S$(33—I) =STR$ B 

25@ LET I=I+1 

269 IF A>Q@ THEN GOTO 229 

279 PRINT S$(34—I TO 32) 

289 RETURN 


“Base” 


This is a simple program that teaches you how to convert any 
decimal number of your choice to its representation in another 
base of your choice. The limitations are given in the prompts. The 
number must lie between 1 and 4294967295, which is 2**32—-1, 
the largest integer your computer can store accurately. However, it 
cannot display such a large number accurately, unless it is treated 
as a string. 

The number base usually used by a computer is binary, or 
base 2. This means that there are only two digits (0 and 1) used in 
the number system. However, base 8 and base 16 are also used 
by many computers. Numbers represented in base 16 are said to 
be in hexadecimal format. We need more symbols to represent the 
digits in this format, so besides the digits @ to 9, we use A, B, C, D, 
E and F to represent 10, 11, 12, 13, 14 and 15, respectively. In 
machine language programming, it is convenient to represent 
numbers in hexadecimal format. 

This program-game will help you master the concept of repre- 
senting numbers in different bases in the range of 2 to 16. To test 
your ability, try your hand at the game “YOUR” NUMBER IS UP 
which appears later in this book. 

To quit, just enter anything other than 0 or 1 in answer to the 
prompt 

ENTER 9 NEW BASE 1 NEW NUMBER 

When you run the program, the first prompt is 

ENTER BASE FROM 2 TO 16 


Suppose you enter 2. The screen clears and a new message 
and prompt appears 

BASE IS 2 

ENTER NUMBER 1 TO 4294967295 


Suppose you enter 15; then below the above appears 
15 IN BASE 2 IS 1111 

which is the number 15 in base 2. Then the prompt is given 
ENTER 9 NEW BASE 1 NEW NUMBER 


Depending upon whether you enter @ or 1, the program will 
clear the screen and return to the prompt for entering the base, or 
it will repeat the base and prompt for entry of a number. 
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If you have the T/S 1500 or T/S 2000, the code for the charac- 
ters is different. The statements in line 5 and 235 take care of this 
for you. Unfortunately, in some of the programs in this book, it was 
not possible to have this done for you in a 1K program, and you 
will be instructed to make changes. 

The mathematics in this game is repetitive division, which is 
performed in the subroutine starting at line 200. For instance, in 
the example cited above, to express the number 15 in the base 2, 
follow this procedure: 


2 | 15. 2 into 15 is 7 with a remainder of 1. Keep 
aak dividing by 2 until you reach @. The 
| 311 remainders give you the required 
it 14 representations, in this case, 1111. 
| O11 

The representation of 15 in the base 3 is given by 

S| 15 The representation is 120. Notice that the 
| 510 last remainder is the first digit in the 
| {2 required representation. 
| O11 


The representation of 15 in the base 4 is given by 33. 
4115 
| S13 
| 013 
You will have noticed that for a base N, the only digits occurring in 
the remainders are N-1, N-2, ..., 1, @. 

For bases greater than 10, the arithmetic becomes more diffi- 
cult, and we have to use the letters A to F to represent remainders 
10 to 15. For example, in finding the representation of 119 in the 
base 12, we proceed as follows: 


12 | 119 
ae 
| @!1 9 


The representation is 9B, where B represents the number 11. 
When you have mastered the game, you could try your hand 
at doing arithmetic with numbers in various bases. For instance, 
try adding and subtracting numbers represented in base 2. Having 
mastered that, you might like to try multiplication and division. 


FF+GH=HI 
DCB+CBA=GEC 


“Crypti Cc” 


VVV—PPP=QQaQ 
NO+UT=VV 
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“Cryptic” (1K) 


19 DIM A$(3,3) 

29 DIM B$(3,3) 

3@ PRINT "ENTER+ OR —" 

49 INPUT 0$ 

59 LET I=15*RND 

69 LET C=INT (549*RND) 

79 LET B=INT (449*RND) 

89 IF O$="+" THEN LET A=C-B 

99 IF O$="—" THEN LET A=C+B 
199 IF A< =99 THEN GOTO 69 

119 LET B$(1) =STR$ A 

129 LET B$(2) =STR$ B 

139 LET B$(3) =STR$ C 

149 FOR J=1 TO 3 

159 FOR K=1 TO 3 

169 LET A$(J,K) =CHR$ (VAL BS(J, 
K) +I+CODE "A") 

179 NEXT K 

189 NEXT J 

199 PRINT AT 9,93;A$(1) 50$;A$(2) 
3" ="5A$(3) 

239 PRINT "ANSWER IS?" 

249 INPUT Z 

259 IF Z<>C THEN GOTO 289 

269 PRINT "RIGHT" 

279 STOP 

289 PRINT "WRONG.DIGIT?" 

299 INPUT W 

295 CLS 

309 FOR J=1 TO 3 

319 FOR K=1 TO 3 

329 IF VAL B$(J,K)=W THEN LET A 
$(J,K) =CHR$ (W+CODE "9") 

339 NEXT K 

349 NEXT J 

369 GOTO 199 
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“Crypti Cc” 


In this program you have the choice of problems in addition or 
subtraction. The program gives you the prompt 


ENTER + OR — 


After you enter one of these operations, a problem involving three 
digit numbers is randomly chosen and displayed for you in a co- 
ded form, where letters replace the digits. For instance 


123 + 234 = 357 
might be displayed as 
ABC + BCD = CEG 


The game is to work out and enter the answer 357. After each 
guess at the answer, you are asked for a digit. If the digit you enter 
occurs in the numbers, then it will be displayed in its proper place 
the next time you are prompted to give the answer. 

To quit, just enter Q in answer to any prompt. Occasionally 
the program runs into an error at line 160 when a randomly gener- 
ated number has only two digits. The first number is safeguarded 
by line 100, but there was insufficient memory for me to safeguard 
the other numbers. If you have more than 1K memory, this fault 
can be corrected by changing line 100 to: 


199 IF A<=99 OR B< =99 OR C< =99 THEN GOTO 69 


If you have more than 1K of memory available in your ma- 
chine, you might like to make this game a little more challenging. 
Have the program pose a sequence of problems, starting with two- 
digit numbers and ending in nine-digit numbers. In the following 
listing | have included additional lines to accomplish this. 
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“Cryptic” (2K) 


19 DIM A$(3,9) 
29 DIM B$(3,9) 
25 FOR P=2 T0 9 
39 PRINT "ENTER+ OR —" 
49 INPUT O$ 
5@ LET I[=15*RND 
55 LET M=19**(9—P) 
57 LET L=19**(P—1) 
69 LET C=INT (555555555/M*RND) 
79 LET B=INT (444444444 /M*RND) 
89 IF Of="+" THEN LET A=C-B 
99 IF O$="—" THEN LET A=C+B 
199 IF A<L OR B<L OR C<L THEN G 
OTO 69 
119 LET B$(1) =STR$ A 
129 LET B$(2) =STR$ B 
139 LET B$(3) =STR$ C 
149 FOR J=1 TO 3 
159 FOR K=1 TO P 
169 LET A$(J,K) =CHR$ (VAL BS(J, 
K) +I+CODE "A") 
179 NEXT K 
189 NEXT J 
199 CLS 
299 PRINT A$(1, TO P);0$;A$(2, 
TO P);"=";A$(3, TO P) 
239 PRINT "ANSWER IS?" 
249 INPUT Z 
259 IF Z<>C THEN GOTO 289 
269 PRINT "RIGHT" 
263 PAUSE 199 
264 CLS 
265 NEXT P 
279 STOP 
289 PRINT "WRONG.DIGIT?" 
299 INPUT W 
295 CLS 
399 FOR J=1 TO 3 
319 FOR K=1 TO P 
329 IF VAL B$(J,K) =W THEN LET A 
$(J,K) =CHR$ (W+CODE "9") 


Cryptic 15 


33Q NEXT K 
349 NEXT J 
369 GOTO 199 

There is one minor fault in the 2K version. This occurs with 
nine-digit numbers. Whenever one of the numbers exceeds the 
number 4294967295 then either the arithmetic will be faulty or 
your correct answer will not be recognized as being correct. Unfor- 
tunately, there is nothing we can do to rectify this, unless we resort 
to machine code, or break up all the numbers into two parts, one 
with an appropriate exponent. You might like to try your hand at 
the latter solution. 
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“Detonation” (1K) 


19 RAND 
2 DIM X(3) 
39 DIM A(3) 
49 FOR I=1 TO 3 
5@ LET X(I) =INT (19@*RND) 
69 IF X(I)=Q THEN GOTO 59 
79 LET A(I) =@ 
89 NEXT I 
99 LET C=9 
199 CLS 
119 LET D=9@ 
129 FOR I=1 TO 3 
139 LET D=D+ABS (X(I) —A(I))**2 
149 NEXT I 
159 LET D=INT SQR D 
169 IF D=@ THEN GOTO 259 
179 IF C=2 THEN GOTO 279 
189 PRINT "AT ";A(1);TAB 6;A(2) 
;TAB 9;A(3);" BOMB DISTANCE ";D; 
TAB Q;"DETONATION IN ";29—C 
199 PRINT "NEW COORDINATES?" 
299 FOR I=1 TO 3 
219 INPUT A(I) 
229 NEXT I 
239 LET C=C+1 
249 GOTO 199 
259 PRINT "SAFE" 
269 STOP 
279 PRINT "BLAM '";X(1);"™ ";X(2) 
3™ %5X(3) 
289 STOP 
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“Detonation” 


You start at the point 0,0,0 in a large building having 1,000,000 
rooms in it. Each room is designated by a set of three coordinates 
® to 99, ® to 99, @ to 99. A bomb is set in a room chosen at 
random and is due to DETONATE in 20 moves. You are given the 
distance from your present position and the bomb at each turn 
and are asked to enter new coordinates. You enter your coordi- 
nates A, B and C one after the other. These are your guesses for 
the bomb coordinates X, Y and Z, respectively. The distance, D, is 
measured by the Euclidean rule: 

D = SQR((A — X? + (B — YP + (C —- Xf) 

Actually, you are given an integer, INT D. 

This is a challenging game and the suspense builds as you 
approach DETONATION. Fortunately no one is hurt if you fail to 
find the bomb in time, so you can restart the program and try 
again, and again, and... 

To quit, enter Q in response to the prompt for new coordi- 
nates. 

Mathematically, the solution is given (as an example) by the 
point of intersection of three spheres inside the cubic building 
centered at (0,0,0), (99,0,0) and (0,99,0). 

That is, you must solve 

V+ V+ Z = 

(XX -99F + Y¥°+2 =D 

+ (¥ —-99P +2 = 
If you do this you are guaranteed to find the bomb in 3 moves! 
This is an example of the use of a branch of mathematics called 
analytic geometry, which is a very useful mathematical technique. 
If you study calculus at a university, you will also study analytic 
geometry. 

To solve this system of second degree equations, we subtract 
the first equation from the second to obtain 


(X - 99 -¥ = Di - Dt 

Expanding the first part we get 

xX? — 198X + (99 - VP = BB - Df 

Canceling the X?, we get by subtracting (99) from both sides 
—198X = — (99" + DZ -— D; 
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Since the distances D, and D, are given to you, all the quanti- 
ties on the right hand side are known, so we can find X by dividing 
by —198. 

We do the same with the third equation. We subtract the first 
equation from the third equation to get 


(Y - 997 - Y* = Dy - Df 
From which we obtain Y. 


Finally, Z is found from the first equation, now that we know 
what X and Y are. Thus 


Z=D-X- Y? 


We take the positive square root for Z. 

NOTE: All of this is perfectly correct in theory, provided the 
distances D,, D, and D, are known exactly. However, in this game 
the distances are rounded off to integers. It usually makes no 
difference. However, | want to warn you that if, after all this analytic 
geometry and algebra, you are still distance 1 from the bomb, you 
will have to finish the problem “by guess and by golly.” 

If you fail to find the bomb in 20 moves, the bomb explodes 
with a BLAM, and the coordinates where the bomb was located 
are displayed. 

There is nothing sacred about the points (99,0,0) and (0,99,0) 
that | used in my solution. You will find that the arithmetic is easier 
to do if you use the points (50,0,0), (0,50,0) and (0,50,0). | leave 
you to work out the details. 
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“Enigma” (1K) 


5 SLOW 

1g RAND 

15 CLS 

29 LET C=INT (25*RND) +1 

3@ PRINT "ENTER YOUR MESSAGE A 

ND I WILL CODE IT.FINISH WITH 
A PERIOD. USE < FOR A SPACE." 

36 PRINT 

49 IF INKEY$<>"" THEN GOTO 49 

59 IF INKEY$=""' THEN GOTO 59 

69 LET A$=INKEY$ 

79 LET B=CODE A$ ’ 

89 IF B=CODE "<" THEN GOTO 299 
199 IF B=CODE "." THEN GOTO 149 
119 LET D=B+C 
115 IF D>CODE "Z" THEN LET D=D- 

26 

129 PRINT CHR$ D; 

138 GOTO 49 

149 PRINT 

145 PRINT " THE CODE IS PLUS?" 

159 INPUT E 

155 PRINT 

169 IF E=C THEN PRINT "RIGHT" 

179 IF E<>C THEN PRINT "WRONG I 

T IS ";C 

175 PAUSE 299 

195 GOTO 15 

290 PRINT " "; 

219 GOTO 49 

NOTE: "" represents two quotes and defines an empty string, line 
40 waits for you to lift your finger off the keyboard and line 50 waits 
for you to press a new key. 


Enigma 23 


“Enigma” 


This program converts your computer into a coding typewriter, 
something like the German coder of the second world war, which 
was called ENIGMA. As you type in a message, it is displayed in 
coded form. You terminate your message by typing a period. A 
space is not accepted so you must use < to type a space in your 
message. 

After your message has been typed, you are asked to solve 
the code. The letters in the alphabet have simply been shifted to 
the right by a constant number of letters. This is the number you 
are prompted to enter. 

Of course it will not be challenging for you because you know 
what the original message was! But challenge a friend to solve the 
code. One person types in a message and then the other attempts 
to decode it. After a little experience you will be a master at 
decoding secret messages. To quit during entry of your message, 
just press the space key. 

This is a very simple form of coding and would be too easy to 
crack. Mathematicians and computer scientists are working on 
developing codes that are almost impossible to crack. So much 
important personal and financial information is stored in data 
banks, you can imagine how important it is to protect that informa- 
tion from unauthorized use. 

If you have more than 1K of memory, you might like to try a 

much more challenging version of ENIGMA. In this version, the 
letters of the alphabet are randomly mixed up! You could not find a 
more difficult code to break! You would have to look at patterns of 
repeating letters and three letter words and, by trial and error, try to 
break the code. 
Warning: In this version, you will be able to use only letters and < 
for a space. The program will not tolerate any other input except a 
period to end your message. This means no punctuation, numbers 
or brackets are permitted in your message. 
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“Enigma” (2K) 
5 SLOW 

19 RAND 

12 LET Z1=CODE "A"-1 

15 CLS 

16 PRINT "GENERATING THE CODE" 

29 DIM C(2,26) 

21 FOR I=1 TO 26 

22 LET C(1,I) =I 

23 NEXT I 

24 FOR I=1 TO 26 

25 LET J=INT (26*RND) +1 

26 IF C(1,J) = THEN GOTO 25 

27 LET C(1,J) =9 

28 LET C(2,I) =J+2Z1 

3 NEXT I 

35 PRINT "ENTER YOUR MESSAGE A 
ND I WILL CODE IT.FINISH WITH 
A PERIOD. USE < FOR A SPACE." 

36 PRINT 

4@ IF INKEY$<>"" THEN GOTO 49 

59 IF INKEY$="" THEN GOTO 59 

69 LET A$ = INKEY$ 

79 LET B=CODE A$ 

89 IF B=CODE "<" THEN GOTO 299 
199 IF B=CODE "." THEN GOTO 149 
119 LET D=C(2,B—21) 

115 IF D>CODE "Z" THEN LET D=D-— 
26 

12% PRINT CHR$ D; 

13 GOTO 49 

149 PRINT 

145 PRINT "ENTER @ FOR THE CODE 
, 1 FORA NEW CODE" 

159 INPUT E$ 

155 IF E$<>"Q" THEN GOTO 15 
157 CLS 

169 FOR I=1 TO 26 

179 PRINT CHR$ (Z1+I);"=";CHRS 
(C(2,1)), 

171 NEXT I 

175 STOP 

195 GOTO 15 


Enigma 25 


290 PRINT " "; 
219 GOTO 49 

When you run the 2K version, it begins with the message 

GENERATING THE CODE 

In about 15 seconds, the message appears 

ENTER YOUR MESSAGE AND I WILL CODE IT.FINISH WITH A 

PERIOD. USE < FOR A SPACE. 

You then type in your message. As you touch the keys, the 
message appears in coded form. You cannot erase mistakes, so 


type carefully! 
When you terminate your message, you will be prompted with 


ENTER @ FOR THE CODE, 1 FOR A NEW CODE 


If you enter @, a listing of the code appears, giving the code 
letter for each letter in the alphabet, for example: 


A=l B=G 
C=C D=E 
etc. 


The program will then stop because of line 175. When you 
wish to continue, press the CONT(INUE) key and ENTER (or NEW 
LINE) key and the program continues with a new code. 

You will have to enter your code with the CAPS LOCK en- 
gaged, or hold down the CAPS SHIFT key because the program 
expects only capital letters in your message. 

Finally, you should delete the statement in line 5 which is not 
required for the T/S 1500 or T/S 2000. 
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“Flash” (1K) 
5 DIM A$(32) 
1@ RAND 
15 PRINT "NUMBERS OR LETTERS?E 
NTER N OR L!" 
16 INPUT C$ 


29 FOR I=1 TO 24 

25 PRINT AT 29,29;"WORKING..." 

39 FOR J=1 TOI 

35 IF C$="N" THEN GOTO 55 

49 LET S=INT (26*RND) +CODE "A" 

45 LET A$(J) =CHR$ S 

59 GOTO 69 

55 LET A$(J) =STR$ (INT (19*RND 
)) 

69 NEXT J 

63 CLS 

64 PRINT "PRESS ANY KEY WHEN R 
EADY" 

65 IF INKEY$="" THEN GOTO 65 

66 CLS 

7@ PRINT AT 1,1;A$(1 TO I) 

89 PAUSE 29+19*I 

99 PRINT AT 1,1;"ENTER SEQUENC 
gE" 

199 INPUT BS 

119 IF B$<>A$(1 TO I) THEN GOTO 
169 

129 PRINT "CORRECT" 

139 PAUSE 59 

149 NEXT I 

159 STOP 

169 PRINT "WRONG ";A$(1 TO I) 

179 PAUSE 259 

175 CLS 

189 GOTO 15 
NOTE: "'" in line 65 is two quotes and represents an empty string. 
This statement waits for you to press any key before continuing. 
Use capital letter mode on the T/S 1500 and T/S 2000 when you 
run this program. 
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“Fl, ash” 


This program tests your ability to read and remember a sequence 
of letters or numbers flashed on the screen. You are asked for your 
choice of letters or numbers, then starting with a single character 
and increasing by one character each time, a randomly generated 
sequence is flashed for a short time on the screen. Each time you 
enter a correct sequence, another sequence with an additional 
character is flashed for you. If you enter an incorrect sequence, 
the correct one is displayed before the program returns to the 
beginning again. 

This program is designed to increase your concentration and 
your reading speed. You will find it very challenging. 

To quit, press the SHIFT and BREAK keys together while the 
program is pausing to display the correct answer, or when it is 
working on the next question. 

When you run this program, make sure your machine is in the 
SLOW mode. This is only needed for ZX81 and T/S 1000 users 
because of the INKEY$ statement used in line 65. The program 
commences with the message: 


NUMBERS OR LETTERS?ENTER N OR L 

You then enter one of the letters, N for numbers, or L for 
letters. The message 

WORKING... 


appears at the bottom right of the screen to let you know that the 
program is running and a sequence is being generated. The 
screen then clears, and you are prompted with the message 

PRESS ANY KEY WHEN READY 

Touch any key and instantly, in the top left corner of your 
screen, the first number or letter of a sequence is displayed for a 
short time, about '/2 second for the first letter or number. You are 
then prompted to enter the sequence by the message 

ENTER SEQUENCE 

If you enter the sequence correctly, the message 

CORRECT 
will be displayed for a short time, and then a new sequence will be 
generated, one character longer than the previous sequence. 
Each time a letter is added, the sequence is displayed for about 
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1/4 second longer. If you enter an incorrect sequence, the mes- 
sage 


WRONG 


will be displayed, followed by the correct sequence. Then you will 
again be prompted to enter N or L and a new sequence will be 
given to you, starting with a single character. 

It is very difficult to get more than 10 characters correct. 
Psychologists have found that the average person has a limit of 
about 7 characters. This program stops at 24 characters. However, 
it is not difficult to increase this to 32 characters. Simply change 
the 24 in lines 20, 30 and 150 to 32. If this is not enough, you 
could increase the dimension of A$ in line 5 and at the same time 
increase the limits set in lines 20, 30 and 150. 

If you need a little more time to view the sequence, alter the 
PAUSE duration in line 80. 

Happy flashing! 
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“Graphs” (1K) 


29 PRINT "ENTER FUNCTION" 


39 INPUT A$ 
35 CLS 

49 PRINT A$ 
45 LET Z=11/6 


59 FOR X=—4.5 TO 4.5 STEP PI/1 


55 LET W=X+4.5 
69 IF A$="SIN " 
W+Z 

79 IF A$="COS " 
W4+Z 

89 IF A$="TAN " 
(W+ .15)/5+Z 

99 IF A$="INT " 
X/3+2Z 


THEN LET Y=SIN 


THEN LET Y=COS 


THEN LET Y=TAN 


THEN LET Y=INT 


199 IF A$="RND" THEN LET Y=2*RN 


D 
119 IF A$="ASN " 
(X/4.5) +2 
129 IF A$="ACS " 
(X/4.5) 

139 IF A$="ATN " 
X+1.4 

159 IF A$="SGN " 
X+1 

169 IF A$="ABS " 
X/2 

170 IF A$="SQR " 
(X+4.5) 


THEN LET Y=ASN 
THEN LET Y=ACS 
THEN LET Y=ATN 
THEN LET Y=SGN 
THEN LET Y=ABS 


THEN LET Y=SQR 


189 IF A$="LN " THEN LET Y=.5*L 


N (X+4.6) +1.5 
199 IF AS="EXP " 
X/24 


THEN LET Y=EXP 


290 PLOT 4*(X+4.5),11*Y 


219 NEXT X 
229 GOTO 29 
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Ma Gr aphs” 


Your computer has numerous built-in scientific functions. What do 
they look like? This program displays a picture of some of the 
values of the functions on your screen. This picture is called a 
graph of the function. In order to display the main features, | have 
had to adjust the scales of the graphs and change the set of 
values at which the functions are evaluated. There are an infinite 
number of functions. These are the ones most commonly used. 

When you type in this program, be sure to use the function 
keys. Do not spell out the functions with letters. 

When you run this program, you will be prompted to enter a 
function. Press the function shift key and then the function and 
enter. The name of the function will be displayed at the top of your 
screen, and a plot of the graph of the function will appear on the 
screen. You will then be prompted to enter another function. 

Notice that the graphs of the functions are always the same, 
except for RND, the random number function, which gives a differ- 
ent set of values each time it is graphed. This is, after all, what we 
want RND to do! Other things to note are that some functions are 
smooth, while others have obvious breaks or jumps in them. Some 
functions become infinite at times. For example, TAN has infinite 
jumps. You will notice that COS and SIN are very similar, one 
being shifted across the screen just a little (actually Pl/2 or ap- 
proximately 1.7 units). TAN X = SIN X/COS X, so as you can see, 
whenever, COS X = @, TAN X becomes infinite. 

A word about inverse functions might be helpful to you. You 
will notice that although SIN, COS and TAN are repetitive func- 
tions, their inverses ARCSIN, ARCCOS and ARCTAN (represented 
in the computer by ASN, ACS and ATN, respectively) do not re- 
peat. The reason for this is that functions must be single valued. 
Every time you put a fixed value of X into your machine, and then 
print the value of a function of X, you would expect to get the 
same answer, unless it was the random function, for example, SIN 
2, ASN@.5, etc. If you get different answers each time, then there 
is something wrong with your computer! 

An inverse function such as ASN X gives a value Y such that 
SIN Y = X. It answers the question: What is the number that has 
a SIN that is X? Since SIN is a repetitive function, there will be 
many (infinite, in fact) values of Y such that SIN Y = X. Yet, we 
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only want one value of Y when we ask the question, “What is the 
number which has a SIN that is X?” We in North America, the 
Russians in the USSR, astronauts on the moon should all get the 
same answer. So it has been arbitrarily decided that the answer to 
the question, “What is the number which has a SIN that is X?” will 
be a unique number in the interval —PI/2 to PI/2 (about — 1.7 to 
1.7). Similarly, the values of ATN lie in this interval, but the values 
of ACS lie in the interval 0 to Pl, just to be different! Not really, 
because there is another relationship between COS and SIN, and 
that is 


COS(PI/2 —X) = SIN X 


This means that if Y = SIN X, so that X = ASN Y, we also have Y 
= COS(PI/2—X) so that PI/2—X = ACS Y. Thus, 


Pi/2 — ASN Y = ACS Y 


So if ASN Y can take on values from —PI/2 to Pl/2, then ACS Y 
must have values from PI/2 — (—PI/2 to Pl/2) which is PI to 0. 
Simple, isn’t it? 

You may not find this program very amusing, but if your curi- 
osity is aroused, then | will be satisfied. 

To quit, press the BREAK key after entering a function. 

If you have a T/S 1500 or T/S 2000, the graphics capability is 
much finer. In that case, you should alter the program in this 
fashion 


139 IF A$="ATN " THEN LET Y=ATN 
X+1.7 

169 IF A$="ABS " THEN LET Y=ABS 
X/2+ .3 

179 IF A$="SQR " THEN LET Y=SQR 
(X+4.5) +.2 

199 IF A$="EXP " THEN LET Y=EXP 
X/3G + .4 

290 PLOT 20*(X+4.5) ,5O*Y 


(3,4)+(1,—2)=(4,2) 
(—5,9)—(—4,3)=(— 1,6) 


“Human” 
Arithmetic 


(4,2)*(1,1) =(2,6) 
(6,4)/(0,2)=(2, —3) 
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“Human” Arithmetic (1K) 
19 RAND 
15 PAUSE 209 
2@ CLS 


39 LET J=INT (4*RND) 

49 LET A=INT (19*RND) -—9 

59 LET B=INT (19*RND) -9 

69 LET C=INT (19*RND) —9 

7@ LET D=INT (19*RND) —9 

89 LET K=SQR (C¥C+DxD) 

99 IF J=3 AND K<>INT K THEN GO 
TO 69 

190 PRINT WMS ASI Ms 31)"; CHR$ 
(214d) 5"("5C5","53D53") =(E,F)" 

119 PRINT "INPUT E AND F" 

129 INPUT E 

139 INPUT F 

135 GOTO 159 +39*J 

189 LET M=1-—2*J 

185 LET G=A+M*C 

199 LET H=B+M*D 

209 GOTO 289 

219 LET G=A*C—B*D 

229 LET H=A*D+B*C 

238 GOTO 289 

249 LET K=K*K 

259 LET C=C/K 

269 LET D= —D/K 

275 GOTO 219 

289 IF G=E AND H=F THEN GOTO 31 
— 

299 PRINT "WRONG ";G,H 

399 GOTO 15 

319 PRINT "RIGHT" 

32 GOTO 15 
NOTE: If you have a T/S 1500 or T/S 2000, you should make the 
following change in the program because the coding of the char- 
acters +, —, * and/ is different from those in the ZX81 and T/S 
1000. 

199 PRINT NOMSAS" SBS) 3 CHRS 

(42+ (J—2)*(13*I*J — 28% — 3) /6) 5""(" 

3C3","3D3") = (E,F)" 
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Here, | used Lagrange Interpolation, which was explained in 
“ANAGRAMS”. | needed an interpolating polynomial P which had 
the value 43 when J=@, 45 when J=1, 42 when J=2 and 47 
when J=3. See if you can derive the expression 


P = 42 + (J—2)*(13%J*J — 28*J — 3/6 


“Human” Arithmetic 


Leopold Kronecker, a 19th century mathematician who developed 
the theory of algebraic numbers, once said “God gave us the 
natural numbers (integers greater than @); everything else was 
created by man.” Hence the name for this program. 

One of the most useful number systems invented is the one 
composed of complex numbers. Numbers belonging to the real 
number system are used to represent the solutions of algebraic 
equations like X*? =2. We say X = + SQR2 or — SQR2, where 
the quantity SQR2 is a real number whose square is precisely 2. 
We are unable to write SQR2 as a fraction, so we can only approx- 
imately represent it as a decimal expansion 1.414213562 ... to 
any desired accuracy required. 

If you want to solve an equation like X*? = —1, what numbers 
do you use? The square of a non-zero real number is positive, so 
complex numbers were invented for this purpose. The key step is 
to introduce the quantity SQR-1 called i. Then i? = —1, so we 
have X? = ? and the solution is X = +i and X = -—i. Such 
numbers were referred to as “imaginary” numbers when they 
were first introduced, but now the term “complex” number is gen- 
erally used. 

In general, a complex number a + ib has two parts, a real 
part, a, and an imaginary part, b. We abbreviate the notation from 
a + b SQR-1 toa + ib and finally to (a,b), which is an ordered 
pair. It is always understood that the second member of a pair is 
multiplied by i. 

The program, “HUMAN” ARITHMETIC, gives you practice in 
the arithmetic of complex numbers. Problems of addition, subtrac- 
tion, multiplication and division are chosen at random. You are 
prompted to enter the solution as an ordered pair (E, F). First enter 
your guess for the number E and then enter your guess for the 
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number F. If you are wrong, the correct answer is displayed. In 
either case, a new problem is posed after a pause. To quit at any 
time, enter Q in answer to the prompt. 

The rules for addition and subtraction are simple. 

(a, b) + (c, d) = (a +c, b + d) 

(a, b) — (c, d) = (a - c, b - d) 

However, multiplication and division are more complex! Keep 
in mind that i? = —1, then 


(a, b) * (c, d) = (a + ib) * (c + id) 
ac + i(a*d) + i(b*c) + i*(b*d) 
(atc — b*d, atd + bc) 

Note that (a, ®) acts like a non-complex number, as indeed it 
is. So (a,0) * (c, ®) = a*c and (a, @) * (c,d) = (ac, ad). In fact, the 
role of 1 in the arithmetic is played by the pair (1,0). 

Division (a, b)/(c, d) is a little tricky. We can divide by all 
complex numbers except (0, ). The trick is to define the multipli- 
cative inverses for each complex number. That is, what is the 
number 1/(c, d)? A better way of saying this is, what is the com- 
plex number (x, y) such that (c, d) * (x, y) = (1, 0) ? 

You can verify by multiplication that the answer is 


ee Oe 
Pe Ce +c? 
So the rule is 


cae fer 
= -—_-s : aa) 


(a, by(c, d) = (a,b) * ( eee 


ce + d e+ da 


In this program, | had to use some computing tricks like a 
computed GOTO in line 135 to squeeze the program into 1K. For 
the same reason, statements 180 to 190 handle both addition and 
subtraction. Similarly, multiplication and division are both done in 
lines 210 and 220. There is no check to avoid the choice of (0, 0) 
as one of the numbers. If you have more than 1K, you could add a 
line 

75 IF C=@ AND D=@ THEN GOTO 69 
to prevent the possibility of a division by @. 
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When you RUN this program, a problem will be displayed in a 
form like (although / might be replaced by +, —, or *) 

(2, —2)/(9, —8) = (E,F) 

INPUT E AND F 

You will then enter the number you think E should be, and 
then you enter the number you think F should be. 

If you are correct, the message RIGHT is displayed and a 
new problem is posed. If you are not correct, the message 
WRONG is displayed, followed by the correct values of E and F. 
Again a new problem is displayed. 

Because of roundoff in the machine, a fraction like { is not 
stored exactly the same as .25, although it would appear like that 
when displayed on the screen. Convince yourself by typing in 


PRINT 1/4—.25 


and you should get 1.1641532E-10. For this reason, in the case of 
division, your correct answer might be rejected as being incorrect. 
This defect can be corrected if you have more than 1K memory. 
What you need to do is replace the line 280 with a statement that 
does not require G=E and H=F exactly. You could use something 
like ABS (G-—E)<.01. | leave you to make the necessary changes. 


“Invader” 
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“Invader” (1K) 


1 DIM A(9) 

5 RAND 

19 FOR I=1 T0 9 

15 LET A(I) =INT (9*RND) +1 

29 PRINT AT 9,2+1;1 

25 PRINT AT Lj23I3" ec ssccses " 

39 NEXT I 

35 LET H=9@ 

49 LET T=9 

45 SLOW 

46 IF T=49 THEN GOTO 96 

59 PRINT AT 15,9;"ENTER I,J" 

55 INPUT I 

57 INPUT J 

58 IF [<1 OR J<1 OR I>9 OR J>9 
THEN GOTO 55 

59 LET T=T+1 

69 IF A(I)=J THEN GOTO 75 

65 PRINT AT I,24+J;"*" 

79 GOTO 46 

75 PRINT AT 1,2+3;"M" 

89 LET H=H+1 

85 IF H<9 THEN GOTO 46 

99 PRINT AT 16,9;"YOU WIN I SU 
RRENDER" 

95 STOP 

96 PRINT AT 16,9;"HA,I WIN" 
NOTES: M@ is the graphics symbol on the space key. For quick 
setup, select FAST mode before typing RUN if you are using a 
ZX81 or T/S 1000. 


Invader 43 


“Invader” 


If you think that the Swedish Navy is inept at catching those small 
submarines that creep into their territorial waters and escape 
again, here is your chance to see if you could do any better. 

This game sets up a 9 by 9 set of points. The points are 
displayed on the screen in 9 rows. Each row is numbered, and 
each column is also numbered. There are 9 invading submarines 
located one to each row. You are prompted with the message 


ENTER I,J 


You enter a row number, |, which should be an integer from 1 
to 9. Then you enter a column number, J, also from 1 to 9. In- 
stantly, the point at the location |,J on the screen is replaced by * 
or M. The * indicates that a submarine was not located at the 
point, while i means that you have located a submarine. 

If you make a mistake in your entry and | or J (or both) is 
outside the range from 1 to 9, line 58 will automatically discard 
your entry and return to the request for entry of | and J. In the 1K 
version, there is not enough memory left to give a message about 
wrong input, but you could easily change that if you have extra 
memory. 

Your attempts are counted by the variable T (for tries). You 
only have 49 tries in a game. If you have not located all 9 subma- 
rines by then you have lost the game. The submarines do not . 
move, so if you repeat the entry of a point, it is counted as a try, 
but it is a wasted move. 

There are very sophisticated search methods programmed 
into the computers on board the subchasers. These are based 
upon statistical theory. However, when all is said and done, if you 
are lucky, or have a sixth sense for this sort of thing, you will beat 
the computers every time. 

This game is meant to give you some experience with proba- 
bility and the random number function. You start by setting up a 
simple search pattern, say test 1,5 then 2,5 and so on down the 
fifth column to 9,5. Then quarter the set of points by testing the 5th 
row, or another row if the point 5,5 has already located a subma- 
rine. When a submarine is found on a row, there is no need to test 
any more points on that row. Odd and even columns should have 
the same probability of containing a submarine. Similarly, columns 
less than the 5th column should be chosen with the same fre- 
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quency as columns greater than the 5th. Finally, as you get down 
to the last few submarines, you should first check those columns 
that do not contain a submarine yet. 

However, after saying all this, in one game anything is possi- 
ble! You might try a simple pattern of testing each row sequentially. 
That is, start at 1,1 then 1,2 and so on until you find the submarine 
in that row. Then you start on the second row. Since there are 
nine positions on each row, on the average, there is a better than 
50% chance of locating the submarine in the first 5 positions of 
each row. In fact, the probability is 5/9, in other words, 55 5/9%. 
Overall, this would amount to 45 tries for the 9 rows. What is the 
probability of successfully locating all the submarines in 45 tries by 
this method? 

You could use this game as a research tool to investigate the 
answer to this question, but you would need a lot of patience! You 
would need to play many times; a hundred would do for a rough 
estimate. You would record the number of times this search pat- 
tern was successful. You would need to change line 46 to 


46 IF T=45 THEN GOTO 96 


For those of you who are like me (a bit lazy), you could 
change the program so that the computer does the search for you. 
The following is a simple 1K program that does this. 


Invader 45 


“Probability” (1K) 


1 DIM A(9) 
5 RAND 
6 CLS 
19 PRINT "ENTER NUMBER OF TEST 
st 
15 INPUT N 
29 LET S=9@ 
25 FOR K=1 TO N 
39 LET H=9 
35 FOR I=1 T0 9 
49 LET H=H+INT (9*RND) +1 
45 NEXT I 
59 IF H<46 THEN LET S=S4+1 
55 NEXT K 
69 PRINT "NUMBER OF WINS IN "; 
N;" GAMES IS ";S 
65 PRINT "PROBABILITY IS ";199 
*S/N;"' PERCENT" 
7@ PRINT "ENTER 1 FOR ANOTHER 
EXPERIMENT " 
75 INPUT Y 
89 IF Y=1 THEN GOTO 6 

Run this program in FAST mode if you are using a ZX81 or 
T/S 1000. It takes about 30 seconds for 100 tests. | hope the 
answer you find agrees with the answer you worked out for your- 
self. If it does, pat yourself on the back and go raid the freezer for 
some of your favorite ice cream. If it does not agree with your 
answer, what the heck, go have some ice cream anyway! 

Now | have a more difficult question for you. Suppose you 
only tried the first 5 positions on each row. That is, whether you 
were successful or not, you check out the 45 positions which are 
the first five positions in each row. What is the probability of finding 
all 9 submarines by this method? 

Make the following alterations to “PROBABILITY” to conduct 
this experiment. 

49 IF 6>INT (9*¥RND) +1 THEN LET H=H+1 

59 IF H=9 THEN LET S=S+1 


You will find it necessary to increase the number of tests to 
more than 100. By changing H =9 in line 50, | would suggest that 
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you check the probability of finding 8 submarines by this method, 
and then 7, 6 and so on down to @. You should plot the results on 
a graph. If you change the grid dimension from 9 by 9 to 8 by 8, 
and search the first four positions in each row, these results would 
be symmetrical. That is, the probability of finding all 8 would be the 
same as finding none. These probabilities are called binomial. You 
would study these and other probability distributions in an elemen- 
tary course on probability and statistics. 

Your results should reproduce approximations to the follow- 
ing: 

G+ i 

= ( + 96)°@) + 36G)GP + 84()°G) 
+ 126(1)°@)' + 1266)" + 846)°6) 
+ 36()/()" + 9() @? + @ 

This is a binomial expansion. \f the probability of finding a 
submarine in the first five positions on a row is §, then the probabil- 
ity of not finding a submarine must be ¢ (they always add up to 1). 
Since there are nine rows, we multiply ({ + 8) by itself 9 times. The 
terms in this expansion all add up to 1 and they represent the 
probabilities of finding @, 1, 2, ..., 9 submarines respectively. Con- 
sequently, the probability of finding all nine submarines is (@)° = 
.005 (approximately) or 3%. So it is a very poor search pattern! 

The numbers that multiply the powers in the expression are 
called the binomial coefficients. An easy way to find these numbers 
is to use Pascal's triangle. 


1 


a 
1 ey oe 
1.4 6 4 
18 09 48 3 1 
1 6 46 26 15 6 1 
1. % 29 35 36, 21. 7 1 
18 28 56 70 56 28 8 1 
19 36 84 126 126 84 36 9 1 


Start and end each row with 1. Add the two numbers above for 
each entry in a row. Entries in the nth row are binomial coefficients 
for (a+b). 

| hope my explanation has not caused you to do anything 
rash, like run away to join the Swedish Navy! 


. 2 rs 
PINTS fit PINTS MEN PINTS iis 
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“Ju qs” (1K) 
1f RAND 


29 LET A=INT (19*RND) 

3Q IF A—2xINT (A/2)=9 THEN GOT 
0 29 

4Q LET B=A+2*(INT (19*RND) +1) 

5@ LET C=A+2*(INT (19*RND) +1) 

69 IF C=B THEN GOTO 59 

7@ LET D=INT (29*RND) 

75 IF D=A OR D=B OR D=C THEN G 
OTO 29 

89 PRINT "YOU HAVE JUGS WHICH 
HOLD" 

82 PRINT A;",";B;","30;" PINTS 

u 

84 PRINT "HOW WOULD YOU GET "; 
D;" PINTS?" 

86 INPUT R 

88 INPUT S 

99 INPUT T 

95 CLS 

96 FOR L=1 10 9 

199 FOR I= -L TO L 

119 FOR J=-L TO L 

129 FOR K=—L TO L 

139 IF IXA+J*B+K*C=D THEN GOTO 
168 

149 NEXT K 

159 NEXT J 

169 NEXT I 

165 NEXT L 

168 IF AXR+B*S+C*T=D THEN PRINT 

"CORRECT" 

169 PRINT "MY ANSWER IS" 

179 PRINT I;TAB 5;J;TAB 19;K 

189 PAUSE 799 

199 CLS 

299 GOTO 29 


Jugs 49 


ay 


“Ju gs 


This is a painless way of practicing your arithmetic. You have three 
jugs that hold different amounts of milk. By adding and subtracting 
the contents of the jugs, you have to get a precise quantity re- 
quested by a customer with an empty jug. 

When you have worked out your answer, enter the three 
quantities representing the number of times you would add or 
subtract each jug. You enter these numbers one after the other. 
The computer will check your answer and find its own solution. 
There is usually more than one correct answer, so do not be 
surprised if your answer is different from the one given by the 
computer. 

To quit, just enter the letter Q when prompted to enter your 
answer. 

The surprising thing in these problems is that at least one 
solution is usually found in the range —3 to 3 for each of the jugs. 
You might experiment with line 96, changing the search limits to, 
say —2 to 2. You might like to increase the possible size of the 
jugs by changing lines 20, 40 and 50 in which (10*RND) could be 
altered to (20*RND) or something else. You will notice that in these 
lines | have made the quantities A, B and C, which are the sizes of 
the three jugs, to be always odd. The final quantity can be either 
odd or even. Can you figure out why | had to impose this restric- 
tion? It is an odd thought! 
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es 
“Knight” (1K) 

19 SLOW 

15 LET Y=CODE "A" 

29 RAND 

25 LET Z=CODE "1" 

39 LET C=9 

49 CLS 

59 LET A=INT (8*RND) +Y 

69 LET B=INT (8*RND) +Y 

79 LET M=INT (8*RND) +Z 

89 LET N=INT (8*RND) +Z 

199 PRINT "MOVE FROM ";CHR$ A;C 
HR$ M;" TO ";CHR$ B;CHRS N 

195 LET C=C+1 

119 PRINT AT C,1;C;" ";CHR$ A;C 
HRS M;" TO "; 

129 INPUT D$ 

139 INPUT E$ 

149 IF A=CODE D$ OR M=CODE E$ 0 
R ABS (A—CODE D$)+ABS (M—CODE E$ 
)<>3 THEN GOTO 249 

159 PRINT AT C,9;D$;E$ 

169 LET A=CODE D$ 

179 LET M=CODE E$ 

189 IF A=B AND M=N THEN GOTO 21 
g 

299 GOTO 195 

219 PRINT "NUMBER OF MOVES = "; 
C 

229 PAUSE 299 

239 GOTO 39 

249 PRINT " INVALID MOVE" 

259 GOTO 195 
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“Knight” 


This is a game of concentration that teaches you to visualize a 
situation in your mind. This ability is essential in the field of mathe- 
matics. To start with, you might prefer to use a chess board la- 
beled A to H from left to right and from 1 to 8 up. You are asked to 
move a KNIGHT from one random location to another. The 
KNIGHT moves in combinations of 1 across and 2 up, or 2 across 
and 1 up, and so on. When prompted, you enter your move in the 
format: enter letter, enter number. Your move is then checked for 
validity. If it is not valid, you are asked to repeat the move. The 
moves are counted and the game is to reach your goal in the least 
number of moves. 

To quit, press BREAK after you successfully reach your goal 
or pull the plug if you are fed up! 

If you have a T/S 1500 or T/S 2000, you should delete line 10, 
which is not needed. You will notice that lines 15, 25 and 50 to 80 
automatically take care of the different coding of the character set. 
Make sure you are in capital letter mode when you run this pro- 
gram. 


YZ > <“ 
Oy > 
CHL 
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“Loose” Change (1K) 


1 SLOW 
5 RAND 
19 LET C=1 
29 LET F=INT (12*RND) +CODE "A" 
39 CLS 
49 PRINT "OF 12 DIMES ONE WEIG 
HS LESS THANTHE REST.FIND THE LI 
GHT COIN BY WEIGHING 4 COINS AGA 
INST 4.ENTERCOIN LETTERS A,B,... 
»L" 
59 LET IT=1 
69 LET W=@ 
79 IF INKEY$=""' THEN GOTO 79 
89 IF INKEY$=CHR$ F THEN LET W 
=1 
9 PRINT INKEY$; 
95 PAUSE 19 
199 LET I=I+1 
119 IF I<9 THEN GOTO 65 
115 CLS 
129 IF W=1 THEN PRINT "UNEQUAL" 
139 IF W=Q THEN PRINT "EQUAL" 
14% PRINT "GIVE UP? ENTER Y OR 
Nu 
159 INPUT A$ 
169 IF A$="N" THEN GOTO 219 
170 IF A$="Y" THEN PRINT C;" MO 
VES. ENTER ANSWER" 
189 INPUT BS 
199 IF CODE B}=F THEN PRINT "RI 
GHT" 
299 IF CODE B$}<>F THEN PRINT "C 
OIN IS ";CHR$ F 
285 GOTO 249 
219 LET C=C+1 
22% GOTO 36 
249 PAUSE 209 
25% GOTO 19 


Loose Change 57 


NOTE: 1. This program does not check for correct entry of data. If 
you have 2K available, just add the line 


75 IF INKEY$<"A" OR INKEY$>"L" 
THEN GOTO 79 


which will ignore any keystrokes that are not A,B,C,D,E,F,G,H,I,J,K 
or L. 

2. In line 70, "" are two quotes which define an empty string. 
This statement waits for you to press a key. 

3. Use capital letter mode on the T/S 1500 and T/S 2000 
when you run this program. 


“Loose” Change 


This is a game of strategy and skill. Someone has been making 
counterfeit dimes. “Why bother?,” you might ask. That is not the 
question we are concerned with. The illegal dime does not weigh 
the same as the good dimes. In the program it is said to be light, 
but all that is necessary is that it be different. You have 12 coins; 
by weighing four coins against four coins you must determine 
which coin is the counterfeit in the fewest number of moves. The 
coins are represented by the letters A,B,...,L. When prompted 
you type in the eight letters representing the eight coins you wish 
to weigh. (The program makes your keyboard act like a typewriter.) 
The first four are on one side of the scales, the last four on the 
other side. You will be told if they are equal, or unequal. 

When you have it figured out, enter Y to the prompt 


GIVE UP? ENTER Y OR N 


To quit, press BREAK when prompted to enter the eight let- 
ters. 

If you are given the additional information of which way the 
scales tip, it is possible to design a scheme that requires no more 
than three weighings and you can find the counterfeit dime and 
you will also know if it is heavy or light. Can you design such a 
scheme? 

If you have a T/S 1500 or T/S 2000, the lines 1 and 95 should 
be deleted. Other changes are 


65 IF INKEY$<>"" THEN GO TO 65 


58 Brain Games for Kids and Adults 


The line 65 should, in fact, be included in the 1K version but 
there was not enough memory. This statement waits for you to 
stop pressing a key. Without this statement, there is the chance 
that you will have multiple entry of some key strokes. If you are 
quick, you should not experience any difficulty. How quick are 
you? 


“Monkey” 


» LO) NY LZ. 
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“Monkey” Puzzle (1K) 


19 RAND 

29 FOR A=3 TO 8 

39 LET B=A-—1-—INT ((A—1)*RND) 

49 PRINT A;" MEN COLLECT A PIL 
E OF COCONUTS THEY INTEND TO SHA 
RE. WHILE THE OTHERS SLEEP, EACH 
MAN IN TURN DIVIDES THE PILE A 
ND HAS ";B;" LEFT OVER WHICH HE 
GIVES TO A MONKEY HE HIDES HIS S 
HARE.NEXT MORNING THEY SHARE THE 
NUTS, GIVING THE MONKEY ";B;".H 
OW MANY DID THEY HAVE AT THE STA 
RT 2" 

59 INPUT C 

69 LET B=INT (A¥*(A+1) —B¥(A—1) 
) 

79 IF C<>B THEN PRINT "ANSWER 
= "3B 

80 PAUSE 299 

9% CLS 

19% NEXT A 
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“Monkey” Puzzle 


This is a very tricky puzzle. The program supplies all the informa- 
tion necessary. Progressively more difficult problems are posed. 
The correct answer is supplied after each response. Line 60 pro- 
vides a formula for the solution of the problems, but you are sup- 
posed to work out the problems on your own. 

To quit, enter Q in response to the prompt. 

You may wonder how | arrived at the solution. | used an old 
mathematical trick of “borrowing” some hypothetical coconuts at 
the beginning to make the arithmetic work out exactly without any 
remainders, and then returned the “borrowed” coconuts after the 
final division was made. 

To understand this process, suppose there are 3 men, and 
they give one coconut to the monkey each time. That is, if X is the 
number of coconuts to start with, after X has been divided by 3, 
there is one left over, then X + 2 will be exactly divisible by 3 with 
none left over. So we borrow 2 to make the stack X + 2. Now, 
after X + 2 has been divided into 3 equal piles, each pile contains 
one more coconut than it should. So the first man, A, gives his 
extra one to the monkey, then hides his correct amount. The re- 
maining two stacks will still contain 2 more coconuts than they are 
supposed to. This means that the next division by 3 will work out 
with none remaining. This time B gives his extra one to the mon- 
key. And so on. Every time the division by 3 works out with no 
remainder. In the last division, each man has an extra coconut. A 
gives his to the monkey, B and C return one each of the “bor- 
rowed” coconuts. All the conditions have been met. So X + 2 is 
divisible by 3 a total of 4 times. So X + 2 = constant * 81. The 
constant can be 1, 2,.... Say itis 1, then X + 2 = 81o0rX = 
79. 

| leave you to work out the general case in line 60. 

If you wish to see how your answers work out, and you have 
2K memory, you might like to try the 2K version given below. 
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“Monkey” Puzzle (2K) 


19 RAND 

29 FOR A=3 TO 8 

39 LET B=A-—1-INT ((A—1)*RND) 

49 PRINT A;" MEN COLLECT A PIL 
E OF COCONUTS THEY INTEND TO SHA 
RE. WHILE THE OTHERS SLEEP, EACH 
MAN IN TURN DIVIDES THE PILE A 
ND HAS ";B;" LEFT OVER WHICH HE 
GIVES TO A MONKEY HE HIDES HIS S 
HARE.NEXT MORNING THEY SHARE THE 
NUTS, GIVING THE MONKEY ";B;".H 
OW MANY DID THEY HAVE AT THE STA 
RT 2" 

59 INPUT C 

69 LET B=INT (A¥*(A+1) —B¥(A—1) 
) 

65 LET Z=INT (C/B) -C/B 

79 IF Z<>Q THEN GOTO 119 

75 IF Z=§ THEN PRINT "CORRECT. 
NOW TRY ANOTHER ONE." 

89 PAUSE 299 

99 CLS 

199 NEXT A 

119 FOR I=1 TO A+1 

129 LET S=INT (C/A) 

139 PRINT "DIVISION ";I;" IS "; 
S;" MONKEY GETS ";C—AxS 

149 LET C=(A—1)#S 

159 NEXT I 

169 PRINT "YOUR ANSWER IS WRONG 
THE CORRECT ANSWER IS ";B 

165 PRINT "ENTER CONT TO CONTIN 


UE" 
179 LET A=A-1 
175 STOP 
189 GOTO 99 


Now you can study how the division would take place with 
your answer, if it is incorrect. The program will not increase the 
number of men sharing the coconuts until you give a correct an- 
swer. 


Monkey Puzzle 63 


You will find this small addition extremely useful in studying 
the pattern of the distribution of the coconuts, especially if you 
have been making arithmetic mistakes when trying to work out 
your answer. 
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“Nim” (1K) 


2@ LET C=INT (19%*RND) 
30 LET B=C+INT (19*RND) 
49 LET A=B+INT (19*RND) 
45 PAUSE 200 
59 CLS 
69 PRINT A;TAB 3;B;TAB 6;C 
7@ PRINT "U MOVE" 
8@ INPUT A 
99 INPUT B 
19@ INPUT C 
119 IF A+B+C=1 THEN GOTO 399 
129 IF B=Q@ THEN GOTO 329 
130 IF C=Q@ THEN GOTO 189 
149 IF A=B THEN LET C=@ 
159 IF B=C AND C=1 THEN GOTO 24 
M1) 
155 IF B=C AND C<>1 THEN LET A= 
i) 
169 IF A AND C THEN GOTO 239 
179 GOTO 59 
189 IF A-—B THEN GOTO 219 
199 LET B=B-1 
20% GOTO 5% 
219 IF B=1 OR A=1 THEN GOTO 329 
215 LET A=B 
22% GOTO 59 
239 IF A+B+C—6 THEN GOTO 269 
249 LET A=A—1 
25% GOTO 59 
26% LET S=B+C 
279 IF A—6+S AND S>2 AND S<6 TH 
EN LET A=6-S 
289 IF A+B+C=6 THEN GOTO 59 
299 GOTO 249 
39% PRINT "U WIN" 
319 GOTO 29 
329 PRINT "I WIN" 
339 GOTO 29 


Nim 67 


NIM is an ancient game for two players. Counters are arranged in 
stacks between the two players. There can be any number of 
stacks and any number of counters in each stack. When it is your 
turn, you may take just one counter or all the counters in just one 
stack, or any number of counters between these extremes. The 
aim of the game is to force your opponent to take the last counter, 
when all the stacks are empty, except the one that has only one 
counter in it. 

There is a winning strategy for the player who goes first. In 
this simple version of NIM, the program always lets you start. 
There are only three stacks of counters. The numbers in each 
stack are displayed in decreasing order of magnitude. You are 
prompted to make your move with the message “U MOVE.” You 
enter the three numbers of counters remaining in each stack after 
your move, one at a time, in decreasing order. The program will 
make dumb moves if you do not enter the numbers in decreasing 
order. 

This program is meant to provide you with a challenging 
game, but not a perfect game, so you can beat your computer! It is 
easy to cheat because your move is not checked. Your input can 
therefore be used to study the response of the computer to any set 
up. 

There are two winning strategies that the program does not 
check. It may not take you long to find them. On the other hand 


To quit, enter Q when prompted to make your move. | think 
this is the most enjoyable game in this book. | hope you like it, too. 

Since | have not come across a program that plays a perfect 
game of NIM, | decided to try to write one. | was not able to make 
a 2K version that was perfect, so | give a listing below for those of 
you with a 16K memory pack or a T/S 1500 or T/S 2000. However, 
a law of computing is that there is no such thing as a perfect 
program. All | can say is that this program seems to me to play a 
perfect game. If you have a T/S 2000 you might like to add sound 
effects and color. | have kept the listing as simple as possible since 
it is quite long. 

lf you enter this program you will appreciate why | have tried 
to keep all the programs in this book as short as possible. If your 
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computer gives you glitches occasionally, | suggest you save your 
listing every so often as you enter it, in order that you do not lose 
all your work because of a power surge. 


Nim 


“Nim” (16K) 


5 RAND 
19 DIM A(9) 
2@ DIM B$(9,4) 
25 PRINT "DO YOU WANT THE FIRS 
T MOVE?INPUT Y OR N" 
39 INPUT M$ 
35 PRINT "INPUT NUMBER OF STAC 
KS FROM 3 TO 9" 
49 INPUT S 
59 IF S<3 OR S>9 THEN GOTO 35 
69 PRINT "DO YOU WANT TO CHOOS 
E THE NUMBER OF COUNTERS (UP TO 
15 ) IN EACH STACK? INPUT Y OR N 
" 
79 INPUT S$ 
89 FOR I=1T0S 
9@ LET A(I) =INT (15*RND) +1 
199 PRINT "STACK ";I;" = "; 
119 IF S$="Y" THEN INPUT A(I) 
115 IF A(I)<Q@ OR A(I)>15 THEN G 
OTO 199 
129 PRINT A(I) 
139 NEXT I 
149 IF M$="N" THEN GOTO 191 
159 PRINT AT 18,9;"INPUT STACK 
NUMBER" 
169 INPUT MS 
165 IF MS<1 OR MS>S THEN GOTO 1 
59 
166 IF A(MS) = THEN GOTO 159 
179 PRINT "INPUT THE NUMBER OF 
COUNTERS YOU WISH TO REMOVE" 
175 INPUT MM 
189 IF A(MS)<MM OR MM<1 THEN GO 
TO 179 
185 LET A(MS) =A(MS) —MM 
199 REM CONVERT NUMBERS TO BINA 
RY 
191 PRINT "I AM THINKING" 
195 LET S$="9999" 
299 FOR J=1T0S 
295 LET B$(J) = "9999" 


69 
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219 LET T=A(J) 

229 LET I=4 

239 LET C=A(J) —2*INT (A(J)/2) 
249 LET A(J) =INT (A(J) /2) 

259 LET B$(J,I) =STR$ C 

255 LET S$(I) =STR$ (VAL S$(I) +C 


269 LET I=I-1 

279 IF I>Q@ THEN GOTO 239 

289 LET A(J)=T 

300 NEXT J 

305 REM COMPUTERS MOVE 

319 IF VAL S$<=Q THEN GO TO 389 
329 IF VAL S$=1 THEN PRINT "YOU 
WIN" 

330 IF VAL S$=1 THEN GO TO 25 
335 LET Q=9 

336 LET R=9 

349 LET P=9 

341 LET W=9 

344 FOR J=1T0S 

345 IF A(J)=1 THEN LET Q=J 

346 IF A(J)=1 THEN LET W=W+1 
347 IF A(J)>Q THEN LET P=P+1 
348 IF A(J)>1 THEN LET R=J 

349 NEXT J 

359 IF P=1 THEN LET A(R) =1 

355 IF P=2 AND W<>1 THEN GOTO 4 
25 

369 IF P=2 AND W=1 THEN LET A(R 
)=9 

379 IF P>2 AND P=W+1 THEN GOTO 
429 

375 IF P>2 THEN GOTO 425 

389 CLS 

385 LET Z=9 

399 FOR I=1 TOS 

400 PRINT "STACK ";I;" = ";A(T) 
495 LET Z=Z+A(I) 

419 NEXT I 

415 IF Z=1 THEN PRINT "I WIN" 
416 IF Z< =1 THEN GOTO 25 

417 GOTO 159 

429 IF P—2*INT (P/2)=Q@ THEN LET 
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A(R) =9 
421 IF P—2*INT (P/2)<>Q THEN LE 
T A(R) =1 
422 GOTO 389 
425 LET D=@ 
439 FOR I=1 TO 4 
449 IF VAL S$(I) —2*INT (VAL S$( 
I)/2)>Q THEN LET D=2**(4—T1) 
445 IF D>@ THEN GOTO 479 
459 NEXT I 
469 IF Q THEN LET A(Q) =A(Q)—1 
462 IF NOT Q AND R THEN LET A(R 
) =A(R) —1 
465 GOTO 389 
479 FOR I=1 T0 S 
472 IF A(I) =D THEN GOTO 599 
474 NEXT I 
475 FOR I=1 T0 S 
489 IF A(I)>=D THEN GOTO 599 
499 NEXT I 
599 LET SUB=9 
519 FOR J=1 TO 4 
529 IF VAL S$(J) —2*INT (VAL S$( 
J)/2) =@ THEN GOTO 579 
539 IF VAL B$(I,J) —2*INT (VAL B 
$(I,J)/2) =9 THEN GOTO 569 
549 LET SUB=SUB—2**(4—J) 
559 GOTO 579 
569 LET SUB=SUB+2**(4—J) 
579 NEXT J 
589 IF SUB>=Q THEN GOTO 499 
585 LET A(I) =A(I) +SUB 
599 GOTO 389 
NOTE: On a T/S 1500 or T/S 2000, the commands GOTO and 
GOSUB have spaces put in them so that the above listing will look 
slightly different. For instance, in place of GOTO you will obtain 
GO TO, and the rest of the line will be shifted one space to the 
right. 
A typical run for this program would be as follows. 
DO YOU WANT THE FIRST MOVE? INPUT 
Y OR N 


Suppose you enter N, then you are prompted with 
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INPUT NUMBER OF STACKS FROM 3 TO 
9 


Suppose you enter 6, then you are asked the question 
DO YOU WANT TO CHOOSE THE NUMBER 


OF COUNTERS (UP TO 15) IN EACH 
STACK? INPUT Y OR N 


Suppose you enter Y, then you will be prompted with 
STACK 1 = 


Suppose you enter a number between @ and 15 inclusive, say 
9, then you will be prompted with 

STACK 1 = 9 
STACK 2 = 


and so on, until all 6 stacks are determined. If you make an invalid 
entry, then the prompt will be repeated. 

The computer will then display the stacks after it has made its 
move and will give you the prompt 

INPUT STACK NUMBER 


After you enter your choice of stack number you are then 
prompted by 


INPUT THE NUMBER OF COUNTERS YOU 
WISH TO REMOVE 


If you enter an invalid number, these prompts are repeated. 

Finally, a message telling you whether you have won or lost 
will be displayed. The program then returns to the initial prompt. 

| made an arbitrary decision to have a maximum of 9 stacks 
and up to 15 counters in each stack. It is not difficult to change 
these parameters. However, | feel that these choices are adequate 
to provide you with a very challenging game. 
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“Obscure” Ages (1K) 


19 RAND 

29 LET A=INT (19*RND) +5 

39 LET B=A+INT (2Q*RND) 

49 LET C=B+INT (29*RND) 

59 PRINT "RON IS ";C—B;" YEARS 
OLDER THAN JIM" 

55 PRINT "RON IS ";C—A;" YEARS 
OLDER THAN PAT" 

69 PRINT "THEIR COMBINED AGE I 
S ";A+B+C 

65 PRINT "ENTER PATS, JIMS AND 
RONS AGES" 

79 INPUT D 

89 INPUT E 

99 INPUT F 

199 IF D=A AND E=B AND F=C THEN 
GOTO 139 

119 PRINT "WRONG IT IS ";A;","; 
B;","; 

129 GOTO 149 

139 PRINT "RIGHT" 

149 PAUSE 299 

159 PRINT "AGAIN? Y OR N" 

169 INPUT A$ 

179 IF A$="N" THEN STOP 

189 CLS 

199 GOTO 29 
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“Obscure” Ages 


The program supplies all the information and prompts necessary 
to play this game. Information is given regarding RONS, JIMS and 
PATS ages. You have to work out and enter their ages one after 
the other in the requested order. A prompt for quitting is given. 

The mathematics behind this game is called linear algebra. In 
this case, you have to solve three linear equations simultaneously. 
A linear equation in three variables, R, J, and P, looks like 


2R + SM - 4P =6 


The information given to you in the game can be written down as 
three such equations and you try to find the values of R, J and P 
that satisfy all three equations. 

One of the major uses of computers is to solve very large 
systems of linear equations that may contain thousands of equa- 
tions. The equations are stored in matrix form and many methods 
have been designed to solve these large systems economically 
and accurately. Numerous books have been written about matrix 
algebra and linear systems and a lot of research is being done 
right now on these problems. By the term matrix, we mean an 
array. For example, the linear equations X + Y + Z =4, 2X -— Y 
= 3, and 2Y — Z =5 can be represented by the array 


1 1 1 & 
2 -1 i) 3 
Q 2 -1 5 


Here we drop the X, Y, Z and =. The columns keep track of which 
symbol belongs to which number. In order to solve this system, we 
first reduce it to an equivalent system that has the same solution, 
but is simpler to solve. We subtract twice the numbers in the first 
row from the corresponding numbers in the second row so that the 
number 2 in the first column becomes @. Thus the equivalent 
system is 


1 1 1 4 
0 -3 -2 -5 
0 2 -1 5 


We now add the numbers in the third row to the corresponding 
numbers in the second row to get the equivalent system 
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1 1 1 4 
0 -1 -3 0 
) 2 -1 5 


Now we add twice the numbers in the second row to the corres- 
ponding numbers in the third row, which reduces the number 2 in 
the third row, second column to @. The equivalent system is 


1 1 1 4 
Q -1 -3 vy) 
i) 0 -7 5 


Now we solve this system, which is called a row reduced system, 
where the matrix of coefficients is said to be triangular. The method 
of solution is called back-substitution. We start with the third row, 
which stands for 


-7Z=5 

The solution is easy. It is Z= — 5/7. The second last row stands for 
-—Y-3Z=0 or Y= —3Z=15/7 

Finally, the first row stands for 
X+Y+Z=4 

but now we know what Y and Z are, so 
X=4-Y-Z=4-15/7+5/7=18/7 

This process is called Gauss Elimination. 


A*BxC=-—4 
A*B+A*B+B*C 
——4 
A+B+C=1 
A=? B=? C=? 
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“Product” and Sums (1K) 


1 RAND 

2@ LET A=INT (19*RND) -9 

3@ LET B=INT (19*RND) -9 

49 LET C=INT (19*RND) -9 

59 IF A>=B OR A>=C OR B>=C THE 
N GOTO 29 

69 IF NOT A OR NOT B OR NOT C 
THEN GOTO 29 

79 CLS 

89 PRINT "THE PRODUCT AXB*C = 
"s AXBXC 

99 PRINT "THE SUM AX¥B+A*C+Bx*C 
= ";AXB+A*C+B*C 

19% PRINT "THE SUM A+B+C =";A+ 
B+C 

119 PRINT "ENTER A,B,C IN INCRE 
ASING ORDER" 

129 INPUT P 

139 IF A<>P THEN GOTO 299 

149 PRINT "A IS RIGHT" 

159 INPUT Q 

169 IF B<>Q THEN GOTO 299 

179 PRINT "B IS RIGHT" 

189 INPUT R 

199 IF C=R THEN GOTO 239 

299 PRINT "WRONG" 

219 PAUSE 299 

22 GOTO 79 

23@ PRINT "CORRECT" 

249 STOP 
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“Product” and Sums 


This is another game where you have to find three unknowns, 
given certain facts. However, it is harder than OBSCURE AGES 
because in this case, you have to solve a system of nonlinear 
equations. 

Prompts provide all the instructions necessary. You are asked 
to enter your answers for A, B and C in increasing order. Suppose 
your answer is A= —5, B= —1 and C=6. You would first enter A. 
The computer checks your answer. If it is correct you then enter B 
and so on. If any one of your answers is wrong, you will be told so, 
and the problem will again be presented to you. The program 
stops when you have solved the problem. If you wish to quit at any 
time, enter Q in response to a prompt. The solutions are integers 
in the range —9 to 9 but not 0. 

The system of nonlinear equations can be written as 

()A+B+C=N 

(2) AXxB +A*C + B*C = M 

(3) AXxB*C = P 
where N,M and P are given numbers and you must solve these 
equations to find the values of A,B and C. 

You multiply equation (2) by A to get 

A? * (B+C) + (A*B*C) =A*M 
and use equation (1) and (3) to get 

A? * (N—A) + P = A*M 
which is a single cubic (degree three) equation in A. By trial and 
error you should be able to solve this equation for A. You will then 
know the sum, B + C and the product, B*C. Suppose we define 

(4)B+C=S 

(5)B *C = T 
where S and T are known. Multiply equation (4) by B and you get 

B? + BeC = BxS 
Substituting equation (5) gives a quadratic equation in B, 

Be + T = BS. 


When you have found the value of B from this equation you can 
then find the value of C from the equation (1). 
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A word of caution. There will be more than one answer for B 
but there will be only one solution of the three equations satisfying 
the condition that the solutions must all lie in the interval —9 to 9. 
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“Quest” (1K) 


2@ RAND 
39 LET C= 
49 LET A=@ 
5Q LET B=@ 
69 LET T=INT (199*RND) -—99 
79 LET R=INT (199*RND) —99 
89 IF T=A AND R=B THEN GOTO 49 
99 LET D=ABS (A—T) +ABS (B—R) 
19% IF D=@ THEN GOTO 189 
119 CLS 
129 PRINT "YOU ARE AT "3A;","5;B 
3" THE TREASURE" 
139 PRINT "IS ";D;" FROM YOU.NE 
W COORDINATES?" 
149 INPUT A 
159 INPUT B 
169 LET C=C+1 
178 GOTO 99 
189 PRINT "YOU FOUND IT IN "5C; 
" MOVES" 
196 IF C<4 THEN PRINT "YOU ARE 
A GENIUS" 
200 IF C>=4 AND C<12 THEN PRINT 
"YOU ARE CLEVER" 
219 IF C>=12 THEN PRINT "TOO SL 
OW PIRATES GOT IT" 
220 PAUSE 599 
239 GOTO 39 


Quest 83 


44 Qu est’ 


You start at the center (0,0) of a square island with sides of length 
199. Somewhere in the square is buried the pirates’ treasure. The 
coordinates of the treasure are T and R, which will be integers 
from —99 to 99. The difference between your coordinates (A,B) 
and the location of the treasure (T,R) is given to you at each turn 
and you are asked to supply new coordinates. You enter your new 
coordinates A and B one at a time. They can be any integers. The 
distance is different from the Euclidean distance used in DETONA- 
TION. The distance from (A,B) to (T,R) is defined as 


D = ABS(A-T) + ABS(B-R) 


A count of your moves is kept and if you are too slow, the 
pirates beat you to the treasure. This program is fun to run and it is 
not difficult to beat the pirates. 

To quit at any time, enter Q in response to a prompt. 

The mathematical problem behind this game is to find the 
points of intersection of squares. This is because when distance is 
measured in the fashion described above, for a given distance D, 
the possible location of the point (T,R) lies on a square surrounding 
your location (A,B). 


(T,R) CF = ABS (A—T) 
FE = ABS (B—R) 
so D=CF+FE 
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When you move to a new location, then a new distance is 
computed and this defines a second square. 


The two squares usually intersect at two points, (why not no 
points?). However, in rare instances they may touch at only one 
point, or they may coincide along a portion of a common boundary 
so that there are an infinite number of points in common. In the 
latter case, you have to shift to a new location and waste a turn. 

You are lucky if there is only one point in common because 
that is the solution. For the usual case of two points in common, 
you only have to check one point. You have a 50% chance of 
being right. In any case, you are guaranteed to find the solution in 
three attempts (unless you were unlucky and had to waste a turn). 

So far | have only given you a geometrical interpretation of the 
solution to this problem. How do you go about producing num- 
bers? 

| suggest that instead of using equations as we have done in 
other cases, this time you should use graph paper. Locate an 
origin in the middle of your paper, draw a horizontal line and a 
vertical line through your origin. These are your coordinate axes. 
Now locate the point (A,B) on your map (it is the origin to start with) 
and draw the square that is a distance D from the point (A,B). You 
do this by locating the corners at (A+ D,B), (A—D,B), (A,B + D) and 
(A,B — D). Now join the corners by drawing straight lines and you 
will have drawn the square. The treasure lies somewhere on this 
square. Now shift your coordinates to another point and draw the 
second square with the value of D given to you by the computer. 
From your graph, estimate the coordinates of the points of inter- 
section of the squares and try entering them. After some trial and 
error, you will become more proficient at drawing graphs and you 
will easily be able to find the treasure before the pirates get to it. 
(They do not have any graph paper!) 
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“Rally” (1K) 


1 RAND 

29 LET R= INT (19*RND) +1 

30 LET C=R+INT (29*RND) +1 

49 LET I=INT (8Q*RND) +29 

59 LET J=INT (89*RND) +29 

69 LET T=I4+J 

79 LET D=R*I+C%J 

89 PRINT "YOU CAN RUN AT ";R;" 
M/SEC." 

82 PRINT "CYCLE AT ";C;" M/SEC 
" 

84 PRINT "ENTER RUN AND CYCLE 
TIMES TO" 

86 PRINT "COVER ";D;" M IN EXA 
CTLY ";T;" SEC." 

99 INPUT A 

199 INPUT B 

119 IF A=I AND B=J THEN PRINT " 
RIGHT" 

129 IF A<>I OR B<>J THEN PRINT 
MWRONG IT IS ";I;","5J 

13 PRINT "AGAIN? Y OR N" 


149 INPUT A$ 
159 IF A$="N" THEN STOP 
169 CLS 


17% GOTO 29 
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“Rally” 
This is a simple game where you are asked to cover a given 
distance in an exact time. You may run or ride a bicycle. The 
speeds for both modes of travel are given to you. 

Prompts give all the instructions necessary to run this game. 

This is a quick and easy game to play and is designed to 
shape up your ability to do mental arithmetic. Once again it in- 
volves the solution of linear equations, only this time you have two 
equations in two unknowns. If the run time is | seconds and the 
cycle time is J seconds, then you are asked to find | and J, given 
that 

()l+J=T 

(2) Rel + CxJ = D 
where T is the total time, D is the distance and R is your running 
speed, while C is your cycling speed. 

The formal solution process is called Gauss Elimination, and it 
may take longer than your mental arithmetic. You subtract R times 
equation (1) from equation (2) which eliminates the unknown | and 
gives 

(C—R)*J = D-R*T 
Thus J = (D-—R*T)(C—R) and substitution of this value of J in 
equation (1) gives the value of I. 


>R 
>RA 
>RAS 
>RASF 
>RASFM 
>RASFME 
>RASFMEG 


>RASFMEGG 
>RASFMEGGB 


“Simon” 
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“Simon” (1K) 


5 DIM B$(59) 

1g RAND 

29 PRINT "NUMBERS OR LETTERS? 
ENTER N OR L" 

3@ INPUT A$ 

49 LET I=1 

5@ CLS 

69 IF A$="N" THEN LET B$(I) =ST 
R$ (19*RND) 

79 IF A$="L" THEN LET B$(I) =CH 
R$ (26*RND+CODE "A") 

89 FOR J=1 TO I 

9% PRINT B$(J); 

199 PAUSE 59 

110 NEXT J 

129 CLS 

139 PRINT "ENTER SEQUENCE" 

149 INPUT C$ 

159 IF C$=B$(1 TO I) THEN GOTO 
179 

169 PRINT "WRONG IT IS ";B$(1T 
0 I) 

165 STOP ? 
179 PRINT "RIGHT ON" 

189 PAUSE 59 

199 LET I=I+1 

299 GOTO 59 
NOTE: Use capital letter mode on the T/S 1500 and T/S 2000 
when you run this program. 
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“Simon” 


We have all played “Simon Says” or “Follow the Leader” at some 
time or other. This game provides two versions of Follow the 
Leader. You have your choice between numbers or letters. Starting 
with a single character and increasing the sequence by one char- 
acter each time, a sequence is displayed one character after an- 
other. You are then asked to enter the same sequence. If you are 
correct, the same sequence is repeated with an extra character 
tacked on to the end. If you are wrong, the correct sequence is 
displayed and the program stops. 

This is a very demanding game and requires tremendous 
concentration. | designed the program to limit the sequence to 50 
characters. If that is not enough for you, just change the dimension 
of B$ defined in line 5. 
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“Trek” (1 K) 


5 RAND 

19 CLS 

15 LET E=@ 

29 LET A=@ 

39 LET B=9 

49 LET C=9 

59 LET H=INT (199*RND) 

69 LET O=INT (199*RND) 

79 LET M=INT (199*RND) 

89 LET D=ABS (A—H) +ABS (B—O) +A 
BS (C—M) 

99 IF D=Q THEN GOTO 169 

199 CLS 

119 PRINT "YOUR SPACESHIP IS AT 
"SA5","3B3", "503". SPOK GIVES T 
HE DIFFERENCE FROM YOUR COORDIN 
ATES AND HOME BASE AS ";D;" EN 
TER NEW WARP COORDINATES" 

129 INPUT A 

139 INPUT B 

149 INPUT C 

145 LET E=E+1 

159 GOTO 89 

169 PRINT "YOU ARE HOME IN ";E; 
tw MOVES" 

179 IF E<4 THEN PRINT "YOU ARE 
A GENIUS" 

175 IF E>=4 AND E<12 THEN PRINT 
"YOU ARE CLEVER" 

189 IF E> =12 THEN PRINT "GOOD T 
RY AGAIN" 

199 PAUSE 599 

299 GOTO 19 


“Tri ek” 


This is a similar game to the earlier game of “QUEST”. You are 
the captain of a spaceship lost in space. You only know the dis- 
tance D = ABS(A-—H) + ABS(B-O) + ABS(C-—M) between 
your coordinates (A,B,C) and HOME BASE (H,O,M). You are 
asked to supply new coordinates for your jump through space 
each turn. The aim is to get to HOME BASE in the fewest number 
of turns. If you can do it in three or less moves, you are a GE- 
NIUS. Good luck! 

To quit at any time, enter Q in response to a prompt for new 
coordinates. 

The mathematical problem behind this game is to find the 
point of intersection of three planes. A plane in three dimensional 
space is a linear equation in three variables, such as 


2X + 3Y - 4Z=5 

You always start at the point (0,0,0), and the ship is located at 
an unknown point (H,O,M). All the coordinates are non-negative, 
so the first distance (D,) supplied to you gives the equation 

H+O+M =D, 

If you shift to a point, say (99,0,0), then the new distance (D,) 
supplied to you by the computer gives you the equation 

(99-H) +O + M =D, 

Similarly, a shift to (0,99,0) gives you a third distance (D,) and 
a third linear equation 

H + (99-O) + M =D, 

The solution of these three equations guarantees you will get 
home in three moves, but don’t tell your friends how you did it! 

If you are having trouble solving these equations, read on. 
You should subtract the first equation from the second one to get 

(99-—H) -— H = D, - D, 
so that 99 - 2H = D, — D.. This means that 

2H = 99 + D, — D,orH = (99+D, — D,)/2 
and H should be an integer, otherwise you have made a mistake in 
your arithmetic. 


In exactly the same way, when you subtract the first equation 
from the third, you will get 
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O = (99 +D, - D,2 


Then, from the first equation, you can find M = D, — H — O. 
If you would like to practice Gauss Elimination on the matrix 
representing the three equations, then you start with the matrix 


1 1 1 D, 
-1 1 1 D,-—99 
1 -1 1 D,-99 
and add the first row to the second row to get 
1 1 1 D, 
i] 2 2 OD,+D,-99 
then subtract the first row from the third row to get 
1 1 1 D 


1 
i) 2 2 OD,+D,-99 
) -2 0 D,-D,-99 
Now you add the second row to the third row to get 


1 1 1 D, 

0 2 2 D,+D,-99 

® oO 2 D,+D,-198 
This is the equivalent system of equations that you can solve by 
back substitution. The last equation states that 

2M = D, + D,; -— 198 0rM = (D, + D,\/2 — 99 

The second last equation gives you 

O = (D, + D, - 99)/2 - M. 

The first equation gives H = D, -O —M. 

In this case, the formal process of Gauss Elimination takes 
longer than the elimination process described earlier. The point is, 
Gauss Elimination can be programmed easily. It does not pay 


attention to any particular short cuts that a system of equations 
may have, but plods a well defined path to the ultimate goal. 


“U-Boat” 
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“U-Boat” (1K) 


19 RAND 
20 LET S=INT (199*RND) —99 
39 LET U=INT (199*RND) —99 
49 LET B=INT (99*RND) 
45 LET C=9 
59 LET X=9 
69 LET Y=9@ 
70 LET Z=9 
89 GOSUB 399 
99 IF S—X=Q THEN LET A=SGN (S- 
X)*99 
199 IF S-X<>Q THEN LET A=INT (A 
TN ((U—Y)/(S—X) )*189/PI) 
119 IF S—X<Q@ THEN LET A=A+189 
129 PRINT "U-BOAT BEARING ";A 
13@ PRINT "RANGE ";R 
149 PRINT "ENTER COORDINATES X, 
Y AND Zz" 
159 INPUT X 
169 INPUT Y 
179 INPUT Z 
175 LET C=C 41 
189 CLS 
185 IF C=29 THEN GOTO 239 
19% GOSUB 399 
299 IF R<>Q THEN GOTO 79 
219 PRINT "GOT IT IN ";C;" MOVE 
s" 
229 STOP 
230 PRINT "SUB AT Hest Ms Usu 
3B;" GOT You" 
249 STOP 
3909 LET R=SQR (ABS (S—X)**2+ABS 
(U-—Y)**24+ABS (B—Z)**2) 
319 RETURN 
NOTE: In line 100, Pl is the function with the value of the number 
pi. 
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“U-Boat” 


You are in control of a subchaser. The detection devices, called 
SONAR, on your ship provide you with the range and bearing of 
the U-boat. Your job is to track down the U-boat in less than 20 
moves. This is similar to the game DETONATION; however, you 
have to use both the Cartesian coordinate system, (X,Y,Z) and the 
cylindrical polar coordinate system (R,A,Z). 

The U-BOAT is located at the Cartesian coordinates (S,U,B). 
These are set up in lines 20 to 40 of the program. The S and U 
values are the coordinates in the X (or east) direction and the Y (or 
north) direction, and are integers randomly chosen from -—99 to 
99. The value of B is the depth, and is an integer from @ to 98. 
Evidently, this U-BOAT cannot fly! 

Your coordinates initially are set up in lines 50 to 
70 to be X=0,Y=0 and Z=@. Your sonar tells you the distance 
between you and the submarine. The distance is the Euclidean 
distance worked out in the subroutine in line 300, 

R = SQR(S-X/ + (U-YY + (B-Z)) 

This is not the distance a crow flies, unless the submarine hap- 
pens to be on the surface. Rather, it is the distance a fish swims, 
to coin a phrase. The value of R is not an integer, and this makes 
the arithmetic more difficult. If you would prefer an integer, put INT 
in front of the SQR in line 300, but that could be misleading as you 
found in “DETONATION”. 

The tricky piece of mathematics in this program is in the 
calculation of the bearing or direction of the submarine. Here, | use 
the usual polar coordinates, based on the east and north coordi- 
nates of your ship and the submarine. 

N (S, U) 


(X,Y) S—X E 


The submarine is located at (S,U) and you are at (X,Y). The 
difference in the east direction is S—X while the difference in the 
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north direction is U-Y. The bearing, or angle measured in de- 
grees in a counter clockwise direction from the east, is 
A=ATN((U —Y)(S — X)). 

Since the submarine could be in any of the four quadrants 
relative to your position, this angle can be positive or negative. In 
lines 90 to 110, | take care of this, and the case when S = X, where 
the submarine is either directly north or south of you. 

When you run this program, you will receive the prompts 

U-BOAT BEARING... 

RANGE . . 

ENTER COORDINATES X,Y AND Z 


where . . . will be some number calculated for A and R. You enter 
your guess of X, then Y and finally the depth of Z. If you are not 
successful in locating the submarine, your subchaser will now be 
located at (X,Y,0). The coordinate Z is set to zero, since your 
subchaser remains on the surface, at least until you are hit by a 
torpedo! 

The mathematical way to solve this is to follow the method 
outlined in “DETONATION”. You look for the intersection of three 
spheres, centered, say, at (0,0,0), (+ 50,0,0), (0, + 50,0). The choice 
of the sign +50 or —50 is up to you, and depends on the initial 
bearing of the submarine, which will tell you in which quadrant the 
submarine is located. 

Suppose you try (50,0,0) and (0,50,0); then you will have to 
solve the equations 


S + U? + B = Rj 
(S-50" + U? + Bt = R3 
S + (U-50P + BP = R§ 


where R,, R, and R, are the initial range and the ranges at (50,0,0) 
and (0,50,0), respectively. Solve these equations and you are guar- 
anteed to locate the submarine in 3 moves! 

The game ceases when you or the submarine is hit. To quit at 
any time, enter Q in response to a prompt for new coordinates. 
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“Verify” (LK) 


5 RAND 

19 LET C=1 

29 LET F=INT (19*RND) 

3@ CLS 

49 PRINT "YOU HAVE TEN GOLF BA 
LLS. ONE IS NOT THE SAME AS THE 
OTHERS. FINDTHE DEFECTIVE BALL B 
Y WEIGHING ANY NUMBER OF BALLS. 
wt 

59 PRINT "ENTER BALL NUMBERS 9 
1D ol! 

69 INPUT A$ 

79 FOR I=1 TO LEN A$ 

75 IF VAL A$(I) =F THEN GOTO 19 
) 

76 NEXT I 

89 PRINT "EQUAL" 

99 GOTO 119 

199 PRINT "UNEQUAL" 

195 PRINT 

119 PRINT "GIVE UP? TYPE Y OR N 
" 

129 INPUT BS 

125 PRINT 

139 IF B}="Y" THEN PRINT "YOU H 
AD ";C;" MOVES THE BALL = ";F 
135 LET C=C+1 

149 IF B$="N" THEN GOTO 39 

159 STOP 
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“Verify” 


This game is similar to “LOOSE” CHANGE, but it is easier. You 
have 10 golf balls and a scale. One of the balls is defective as it 
does not weigh the same as the others. The balls are numbered @, 
1, 2, ..., 9. You may select any number of balls to compare their 
weight. You can even select an odd number because the com- 
puter has a spare good ball to make up the same number on each 
side of the scales. You are told if your selection is EQUAL or 
UNEQUAL. When you think you know which ball it is, answer YES 
to the prompt GIVE UP? The number of moves you took and the 
answer is then displayed. The program will then stop. 

An excellent score is 3 or less. A good score is 4 or 5. Over 5 
and you need to practice a few times, or maybe you prefer to play 
with real golf balls on a real golf course! 

NOTE: Enter your selection of golf ball numbers in a string. For 
example, if you wish to compare @, 1, 3, 7,8, you would enter 
01378. 

To quit at any time, enter Q in response to a prompt for ball 
numbers. 

As in “LOOSE” CHANGE, you can map out a logical proce- 
dure guaranteed to locate the ball in the fewest number of moves. 
There are many problems in mathematics and computer science 
where we program computers to do such sorting and selection 
based upon some criteria of selection. There are many applica- 
tions of such methods in industry and communications. 


ee erence ee 
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“Warp” ( 1 K) 


5 RAND 

19 CLS 

15 LET E=9 

29 LET A=@ 

39 LET B= 

4Q LET C=@ 

45 LET F=@ 

59 LET H=INT (19@*RND) 

69 LET O=INT (19@*RND) 

79 LET M=INT (19@*RND) 

75 LET G=INT (19@*RND) 

89 LET D=ABS (F—G)+ABS (A—H) +A 
BS (B—0O)+ABS (C—M) 

99 IF D=@ THEN GOTO 169 

199 CLS 

119 PRINT "YOUR SHUTTLE IS LOST 
IN A TIME" 

112 PRINT "WARP ";D;" FROM THE 
SHIP AT" 

114 PRINT As", "5 stone; PLD 
116 PRINT "ENTER NEW COORDINATE 
s" 

129 INPUT A 

139 INPUT B 

149 INPUT C 

142 INPUT F 

145 LET E=E+1 

159 GOTO 89 

169 PRINT 

165 PRINT "YOU ARE HOME IN ";E; 
'" MOVES" 

176 IF E<4 THEN PRINT "YOU ARE 
A GENIUS" 

175 IF E>=4 and E<12 THEN PRINT 
"YOU ARE CLEVER" 

189 IF E>=12 THEN PRINT "GOOD T 
RY AGAIN" 

199 PAUSE 599 

299 GOTO 19 
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“Warp 


This is the most difficult of all the hide-and-seek type of games in 
this book. You are separated from your spaceship. You are in a 
shuttle lost in a time warp! Your instruments can give you only the 
total difference in your coordinates and those of the ship. There 
are four such coordinates, three spatial coordinates and one for 
time. You are prompted to enter new coordinates each move and 
you are given your new distance from the spaceship. You enter the 
coordinates one after the other. There is no limit to the number of 
moves, only a limit to your patience! 

To quit at any time, enter Q in response to the prompt for new 
coordinates. 

Using analytic geometry, the solution is found in four moves 
by finding the point of intersection of four hyperplanes. A hyper- 
plane in the space with coordinates X, Y, Z, T is represented by a 
linear equation such as 


2X + 3Y + 55Z+T =24 


| suggest that you go back to the game called TREK and 
master that first. The mathematical explanation there will help you. 
This game is very similar and you should be able to find four linear 
equations in the four unknowns. Thus you are guaranteed a solu- 
tion in four moves. If you do better than that, you should become a 
stock broker! 


“Xchange” 
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“Xchange” (1K) 


49 RAND 

50 LET COW=INT (151*RND) +29 

69 LET Z=INT (COW/19) 

65 CLS 

79 PRINT "HOW MANY OF ";Z+4;": 
CATS,HENS,DOGS,ANDPIGS WORTH $1, 
3,5,19 DO YOU GET FOR A $'';COw;"' 
cow?" 

9@ INPUT A$ 

199 CLS 

119 FOR P=—1T01 

129 FOR Q=-1T01 

139 FOR R=-1T01 

149 FOR S=—-1T01 

150 IF P+3*Q+5*R+19*S =COW —Z*19 
THEN GOTO 299 

169 NEXT S 

179 NEXT R 

189 NEXT Q 

199 NEXT P 

290 FOR X=1 TO 4 

291 IF VAL A$(X)>Z+1 THEN GOTO 
219 

292 NEXT X 

295 IF VAL A$(1)+VAL A$(2)*34+VA 
L A$(3)*5+VAL A$(4)*19=COW THEN 
PRINT "CORRECT" 

219 PRINT "MY ANSWER IS ";P+2Z;Q 
+Z;R+Z;S+Z 

215 INPUT Q 

229 GOTO 59 
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“XChange” 


You have a cow worth a given amount. The amount is chosen 
randomly. You are seeking a fair exchange for a number of cats, 
hens, dogs and pigs, which are each worth a certain given 
amount. There is only a limited quantity of each of the cats, hens, 
dogs and pigs. You are asked to determine how many of each you 
are willing to exchange for your cow. 

Your answer is checked, and the computer also gives you an 
answer. The two answers may not be the same, but nevertheless, 
they may both be correct. 

Note that your entry should be in a string, so that if you want 
2 cats, 3 hens, 3 dogs and 2 pigs, you would type in 2332. No 
individual number will ever exceed 9 so your entry will always 
contain four digits. 

A typical run would go as follows. The program begins with a 
message like 

HOW MANY OF 6: CATS,HENS,DOGS AND 

PIGS WORTH $1,3,5,19 DO YOU GET FOR A 

$191 COW? 


You would then enter your answer in a string. Say you decide 
on 6 cats, 5 hens, 6 dogs and 5 pigs, then you would enter 6565. 

The computer checks your answer. If it is correct, the com- 
puter will print the message CORRECT. 

In any case, the computer will give you an answer that is 
computed from the lines 110 to 199. Sometimes there is more 
than one correct answer. Lines 200 to 202 provide a check on your 
entries to make sure that you abide by the limitations set on the 
number of animals. However, if you experience “glitches” with 
your computer, which | think is caused by a saturation of the 1K 
memory, then you may delete these lines. In that case it is easy to 
cheat since there is no limit on the number of individual animals 
(say, cats) that you accept in trade. The statement 215 halts the 
program while you read the screen. To continue, enter any num- 
ber. 

To quit at any time, enter Q in response to a prompt for your 
answers. You could also enter STOP. 

The mathematical solution to this problem is based on the 
fact that combinations of the numbers 1, 3, 5 and 10 give you all 
the numbers from 1 to 19. For instance 7=10-3, 
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17=10+5+3-—1. Each number is used at most once, either by 
adding or subtracting. So if a cow is worth $60, we divide 19 into 
60 to get 3 with a remainder of 3. So 3433 is the solution in the 
format required by this program. 

Here is a problem to think about: The face value of the indi- 
vidual pieces in a currency is chosen so that transactions can be 
made with relatively few individual pieces of money. Design a sys- 
tem of coins so that the values from 1¢ to 99¢ can be made with 
the fewest number of coins. 
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“Your” Number Is Up (1K) 


5 RAND 
6 LET Z=CODE "A"-—19 

19 DIM S$(32) 

29 LET D=INT (15*RND) +2 

39 CLS 

49 PRINT "BASE IS ";D 

69 LET A=INT ((4294967295*RND) 
/(1+19999999*RND) ) +1 

79 LET C$=STR$ A 

89 GOSUB 299 

99 PRINT "NUMBER IS" 

199 PRINT S$(34-—I TO 32) 

119 PRINT "ENTER THE NUMBER BAS 
E 1g" 

129 INPUT G 

139 IF G=VAL C$ THEN PRINT "COR 
RECT" 

149 IF G<>VAL C$ THEN PRINT "WR 
ONG IT IS ";C$ 

159 PAUSE 599 

169 GOTO 29 

290 LET I=1 

229 LET B=A—D*INT (A/D) 

239 LET A=INT (A/D) 

235 IF B>9 THEN LET S$(33-—I) =CH 
R$ (Z+B) 

236 IF B>9 THEN GOTO 259 

249 LET S$ (33-I) =STR$ B 

259 LET I=I+1 

269 IF A>Q@ THEN GOTO 229 

27% RETURN 
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“Your” Number Is Up 


This is the opposite of the game “BASE”. You should first play 
“BASE” to learn how to convert any given decimal number to 
another base other than 10. “YOUR” NUMBER IS UP tests your 
ability to convert numbers from any given base to base 10. 

You will find this a very challenging game since it tests your 
skill in converting numbers written in varying bases from 2 up to 
16. Actually, you could change that to bases 2 up to 36 quite easily 
by changing the 15 in line 20 to 35. Then the letters A, B, C,...Z 
would stand for the numbers 10, 11, 12, ... 35, respectively. 
However, it is only practical to use the numbers up to base 16, so | 
make use of only the letters A, B, C, D, E and F to represent the 
numbers 10, 11, 12, 13, 14 and 15, respectively. 

A typical run goes like this. When you type in RUN, a mes- 
sage like this is displayed 

BASE IS 14 

NUMBER IS 

9C 

ENTER THE NUMBER BASE 19 

Now 9C stands for 9*14 + 12 = 138. Suppose you enter 
136. The computer responds with 


WRONG IT IS 138 


Then a new problem is posed. If you are correct, the mes- 
sage given is just 
CORRECT 


and again a new problem is posed. 

If you have a T/S 1500 or T/S 2000, you will notice that RAND 
comes out as RANDOMIZE. Lines 6 and 235 allow for the different 
code for the characters A, B, C, ... in the ZX81, T/S 1000, T/S 
1500 and T/S 2000. 

To quit at any time, enter Q in response to the prompt for your 
answer. 
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“Ten” Stacks (1K) 


19 DIM A$(3,9) 
29 PRINT "INPUT N" 
39 INPUT N 
49 LET M=@ 
59 LET A$(1) ="ABCDEFGHI" 
89 CLS 
99 LET M=M+1 
199 FOR I=1 TON 
119 PRINT A$(1,1I);TAB 19;A$(2,I 
);TAB 29;A$(3,1) 
129 NEXT I 
139 PRINT "INPUT MOVE ";M 
149 INPUT BS 
159 LET C=VAL B$(1) 
169 LET D=VAL B$(2) 
179 FOR I=1 TON 
189 IF A$(C,I) =" " THEN GOTO 26 
) 
199 FOR J=N TO 1 STEP —1 
299 IF A$(D,J)<>" " THEN GOTO 2 
39 
219 LET A$(D,J) =A$(C,I) 
228 GOTO 249 
239 NEXT J 
249 LET A$(C,I) =" " 
259 GOTO 8g 
269 NEXT I 


Zen Stacks 119 


“Zen” Stacks 


In a monastery, high in the mountains of Tibet, a group of monks 
struggles valiantly to save the universe from destruction. Their 
task, imposed by a superbeing from another galaxy, is to shift 60 
counters of different magnitudes from one stack to another. They 
are allowed to form three stacks while doing this. At the beginning, 
all the counters were on the first stack, arranged in increasing 
order. Only one counter at a time can be moved. The problem is to 
move all the counters to the third stack in the least number of 
moves. There is one vital restriction. At no time should a greater 
counter be on top of a lesser one. One mistake and the universe, 
as we know it, ends. So the monks toil on, carefully contemplating 
each move. 

In this game, you get to move the counters, which are the 
letters A, B, C, ... stacked in increasing alphabetical order from 
the top down. You are asked to input the number of counters (from 
1 to 9). You are then invited to input your moves. You input a two- 
digit number. If you wish to move the top counter from stack 1 to 
stack 3, you input 13. To move the top counter from stack 3 to 
stack 2, you input 32, and so on. 

| leave you to solve the following mathematical problems. In 
order to solve the problem in the fewest number of moves, you will 
have to move the first counter onto the correct stack. For an odd 
number of counters, you should move the first counter onto which 
stack? Once you have this figured out, you will also know which 
stack to move the first counter onto if you have an even number of 
counters. Now, what is the minimum number of moves for N 
counters? Solve the game for N = 1, 2, 3,... and see if you can 
arrive at the general rule. 

In this simple 1K version of the game, | have not put in any 
checks on your moves. So if you enter an invalid move, the game 
is likely to stop. If you have more memory, you might prefer the 
following 2K version, which | think makes the game more enjoy- 
able. 
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“Len” Stacks (2K) 


19 DIM A$(3,9) 
29 PRINT "INPUT N" 
25 LET K=9 
3@ INPUT N 
35 IFN< 10ORN> 9 THEN GOTO 29 
49 LET M=@ 
50 LET A$(1) ="ABCDEFGHI" 
60 LET A$(2) = "HNRRURGE' 
79 LET A$(3) =A$(2) 
89 CLS 
99 LET M=M+1 
19% FOR I=1 TON 
119 PRINT A$(1,I);TAB 19;A$(2,1 
);TAB 29;A$(3,1) 
129 NEXT I 
125 IF K=1 THEN GOTO 299 
139 PRINT "INPUT MOVE ";M 
149 INPUT B$ 
15% LET C=VAL B$(1) 
169 LET D=VAL B$(2) 
165 IF C< 10ORD< 1ORC> 30RD> 3 
OR C=D THEN GOTO 279 
179 FOR I=1 TON 
189 IF A$(C,I) ="—' THEN GOTO 26 
’) 
199 FOR J=N TO 1 STEP —1 
299 IF A$(D,J)< > "WF THEN GOTO 2 
39 
219 LET A$(D,J) =A$(C,I) 
212 IF J=N THEN GOTO 249 
214 IF A$(D,J)> A$(D,J+1) THEN G 
OTO 279 
229 GOTO 249 
23@ NEXT J 
249 LET a$(C,I) =" 
245 IF I=N AND J=1 AND D=3 THEN 
LET K=1 
259 GOTO 89 
269 NEXT I 
270 PRINT "INVALID MOVE." 
275 PRINT "THE UNIVERSE IS DOOM 
ED." 
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289 GOTO 29 
299 PRINT "UNIVERSE IS SAVED IN 
";M—1;" MOVES." 
399 GOTO 29 

The symbol “ &” is the graphics symbol on key 5 and will 
symbolize poles onto which the counters slide. When counters are 
removed, the pole reappears. The game may be played in either 
SLOW or FAST modes. To quit at any time, enter Q in response to 
the prompt INPUT MOVE. 
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Here are 26 exciting, challenging, educational games: | 
e Can you find the treasure before the bloodthirsty pirates find you? 


¢ Can you find your way out of the four-dimensional time-warp be- 
fore your fuel runs out? 


¢ Will your powers of deduction hold up as you desperately try to 
locate the bomb before it, explodes? 


Brain Games for Kids and Adults Usiig the Timex/Sinclair 1000, 1500 & 
2000 is the only way to find out. It’s fun. It’s entertaining. And it’s a new 
way to learn about mathematics while you play! Written in 1 K of memory, 
this remarkable book packs an enormous amount of information in just a 
few lines of code to give you more than games alone. It’s a learning tool! 
You can guess at the solutions or work them out logically—either way 
you'll pick up some very practical knowledge. It couldn’t be easier or more 
challenging! No matter what your age or experience, all you need is a little 
concentration and imagination. 
The challenge is yours . . . Get ready for Brain Games! 
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